Hi

sub test()
dim start as string, finish as string
With Selection
start = .Cells(1,1).address is the first cell
finish = .Cells(.rows.count, .columns.count).address
End With
msgbox start
msgbox finish

end sub

regards
Paul