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