I'm using this code for "LastRow" found at j-walk.com to scroll through xl workbooks and sheets. Sometimes it works - sometimes it doesn't. Can anyone help me out? I need something more dependable to find out last row with text or numbers.This one sometimes finds the last row 18+ rows after
the last row with real input.

For Sheetnum = 2 To (xl.Workbooks(1).Worksheets.Count - 1)
Sheets(Sheetnum).Select
LastRow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
For i = 4 To LastRow
xl.Range("G" & i).Select
list1.additem Val(xl.Range("G" & i).Value)
Next
Next