Cool. It doesn't error anymore, but it also does not go to the next
worksheet. All it does now is add the value"123" to A2 on worksheet 2 and
worksheet nth without actually going there?

"Chip Pearson" wrote:

"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