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