Cycling through

[JimMcAlees]

I am going crazy with a simple macro which will not go to the next sheet, it will change to first sheet but never move on to the next. I feel so dumb over this.

Sub Cyclethrough ()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
Range("a1").select
next ws
End Sub

 

[VoG]

Maybe

Sub Cyclethrough()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
    Application.Goto ws.Range("A1")
Next ws
End Sub

 

[JimMcAlees]

Peter, thanks for the suggestion but this gives me a "Method 'Goto' of object'_Application failed
This macro is way to simple not to work

 

[VoG]

That works for me. Are any sheets protected?

 

[JimMcAlees]

Nope... all 18 sheets are unprotected... I am beginning to think this may be a problem with my machine... thanks for your suggestions

 

[JimMcAlees]

Peter I created a new blank workbook with 3 pages and this code worked fine... but it will not work in my actual spreadsheet. The file I have was created in a previous version... I am now running Excel 2010.