Dim sh as Object
Dim Sh1 as Object
set sh1 = Activesheet
for each sh in ActiveWindow.Selectedsheets
sh.Activate
Range("A1").Select
Next
Sh1.Activate


change Range("A1").Select to

cells.SpecialCells(xlCellTypeLastCell).Select

for the bottom right.


--
Regards,
Tom Ogilvy


"Rick" wrote in message
...
What code is required in a macro to set the cursor to the
top left or the bottom right in multiple worksheets?