antoka05 wrote in
:


you can also do so one time for all worksheets:

With ActiveWorkbook
For i = 1 To .Sheets.Count
Sheets(i).Select
Range("a1").Select
Next
End With



Unfortunately neither of these suggestions worked. I think it is because
the workbook is not visible.