The following characters are not valid characters to use in worksheet
names:
/ ? * [ ]
http://support.microsoft.com/kb/q213900/
Pete wrote:
Hi!
I get an error when using this macro! What is the problem? Ive marked it
below where it gives me the error!
Thanks for all the help!
Sub MonthlySentOut()
Cells.Select
Selection.Interior.ColorIndex = xlNone
Range("B1").Select
Selection.ClearContents
Range("B11").Select
Selection.ClearContents
Range("A1").Select
ActiveCell.FormulaR1C1 = _
"=MID(R[6]C[1],28,7)"
Range("A2").Select
For Each Sh In ActiveWorkbook.Sheets
Sh.Activate
Sh.Name = Cells(1, 1).Value <---- where error occurs!!!!
Next Sh
sPath = "C:\Temp\"
ActiveWorkbook.SaveAs sPath & ActiveSheet.Range("a1").Value
End Sub