Okay, but you can do it a lot simpler notwithstanding the limitations of UsedRange
[vba]
Function GetBottomRow(ByVal sh As Worksheet) As Long
With sh
GetBottomRow = .UsedRange(.UsedRange.Count).Row
End With
End Function
[/vba]
Okay, but you can do it a lot simpler notwithstanding the limitations of UsedRange
[vba]
Function GetBottomRow(ByVal sh As Worksheet) As Long
With sh
GetBottomRow = .UsedRange(.UsedRange.Count).Row
End With
End Function
[/vba]
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote