I just wrote this quick code for saving some new reports I'm making up and it runs great if I don't have "Option Explicit" but if I add it in, it brings up an error. I know its because I don't have "Dim SaveName as ____" but I can't seem to find anything to fill in the blank with that works. Where am I going wrong?
Rich (BB code):
Sub SaveAs()
On Error GoTo Err
SaveName = Sheets("Home").Range("C38").Value
MkDir "\\TBISUSFS001\Share\SERVICE\Repair Shop Build Books\" & SaveName
ActiveWorkbook.SaveAs Filename:= _
"\\TBISUSFS001\Share\SERVICE\Repair Shop Build Books\" & SaveName & "\" & SaveName
Err: MsgBox "File was not saved.", vbOKOnly, "File Not Saved"
End Sub