Problem: unable to get macro to run when I click file,save as. Macro works fine when manually running macro from
VB. Can someone help?
Macro:
Quote:
Sub Save_it()
Dim strCustomer, strSavePrompt As String
' Collect customer name
strCustomer = Range("memname")
' Collect current date
strVerDate = Range("savedate")
' strFileName = "Estimate for " & " - " & strCustomer & " - (YMD) " & strVerDate
strFileName = "Estimate for " & " - " & strCustomer & " - (YMD) " & strVerDate & ".xls"
Application.Dialogs(xlDialogSaveAs).Show strFileName
End Sub
|