XLD >> That is interesting.

MDMackillop >> Why aren't we just using something like this?

[VBA]Public Function GetBottomRow(ByRef ofWorksheet As Excel.Worksheet) As Long
Const lngOffset_c As Long = 1
Dim rngUsed As Excel.Range
Set rngUsed = ofWorksheet.UsedRange
GetBottomRow = rngUsed.Rows.Count + rngUsed.Row - lngOffset_c
Set rngUsed = Nothing
End Function[/VBA]