In need of assistance, i would like to use the below code (if possible) but have it save as pdf and not overwrite it. It will be assigned to a button. Thanks in advance
Private Sub CommandButton1_Click()
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "PLease choose a location and file name to save"
.ButtonName = "Save Tracker"
.InitialFileName = "E:\Tony\Tracker\" & Range("L1").Value
If .Show = 0 Then
MsgBox "The file did not save.", vbCritical
Exit Sub
End If
Application.DisplayAlerts = False
.Execute
Application.DisplayAlerts = True
End With
End Sub
Private Sub CommandButton1_Click()
With Application.FileDialog(msoFileDialogSaveAs)
.Title = "PLease choose a location and file name to save"
.ButtonName = "Save Tracker"
.InitialFileName = "E:\Tony\Tracker\" & Range("L1").Value
If .Show = 0 Then
MsgBox "The file did not save.", vbCritical
Exit Sub
End If
Application.DisplayAlerts = False
.Execute
Application.DisplayAlerts = True
End With
End Sub