Thank you this code was perfect for what I needed.

Thanks again and keep it up!,
Will

JMB wrote:
contemplating that you could have data in the very last row of column A or B

Sub test()
With Sheet1
If .Cells(.Rows.Count, 1).Value < "" Then
RowA = .Rows.Count
Else: RowA = .Cells(.Rows.Count, 1).End(xlUp).Row
End If
If .Cells(.Rows.Count, 2).Value < "" Then
RowB = .Rows.Count
Else: RowB = .Cells(.Rows.Count, 2).End(xlUp).Row
End If
End With
End Sub

Howdy,

[quoted text clipped - 10 lines]

Will

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200603/1