G
Guest
I have this bit of code that I use to fill in sheet names for a large report.
I am trying to conserve space. Also, it doesn't work. I get a 438 runtime
error. I need to know how to fix this so the object does work.
'Rename Sheets
i = 1
For Each c In SheetNames
Sheets(i).Names = c.Value
i = i + 1
If i = 19 Then Exit For
Next c
Regards,
N
I am trying to conserve space. Also, it doesn't work. I get a 438 runtime
error. I need to know how to fix this so the object does work.
'Rename Sheets
i = 1
For Each c In SheetNames
Sheets(i).Names = c.Value
i = i + 1
If i = 19 Then Exit For
Next c
Regards,
N