"Worksheets" must be plural.
--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
"Michael from Austin"
wrote in message
...
Here is the code that I have entered.
Sub ChangeSheet()
' begins mac in sheet 1 cell a2
Dim Ndx As Integer
For Ndx = ActiveSheet.Index + 1 To
Worksheets(Worksheet.Count).Index
Worksheets(Ndx).Range("A1").Value = 123
Next Ndx
Call ForNextLoop
End Sub
This is the error:
Run-Time Error '424' Expected an Object
I get this on the following line..
For Ndx = ActiveSheet.Index + 1 To
Worksheets(Worksheet.Count).Index
"Michael from Austin" wrote:
I have a macro that I want to have also run on the next
worksheet and then
the next until there are no more worksheet. The worksheets
have names. I do
not want it to have to look for the name and then open it. I
just want it to
go to the next one and then the next until the end... Can
this be done. Any
help would be appreceited.....
--
Regards,
Michael