Have to code to save files to, but get error if the folder doesn't exist.Need a message box to say folder does not exist do you want to save in Misc. folder C:\Users\Tom\Retail\Sales\Misc yes or no option. no woulds
exit the sub and yes would save.
Code
ChDir "c:\Users\Tom\Retail\Sales\" & Range("D13")
End If
Dim varFullName As Variant
Dim strFileName As String
Cancel = True
strFileName = ThisWorkbook.Sheets("Sheet1").Range("D16").Value
varFullName = Application.GetSaveAsFilename(InitialFileName:=strFileName, _
fileFilter:="Microsoft Excel Workbook (*.xlsm), *.xlsm")
If varFullName <> Cancel And varFullName <> False Then
On Error GoTo FileNotSaved
Application.EnableEvents = False
ThisWorkbook.SaveAs Filename:=varFullName
Application.EnableEvents = True
End If
Exit Sub
FileNotSaved:
Application.EnableEvents = True
Display More