try this. No loop

Sub fixsheets()
Sheets.Select
Range("a1").Select
Sheet1.Select
End Sub
--
Don Guillett
SalesAid Software

"CassieM" wrote in message
...
I am a newbie. I'm trying to write a macro to loop through all of the
sheets
in a workbook and return the cursor to the home (A1) position. Seems like
it
should be fairly simple to me, but I just can't get it to work. Thanks
for
your help.