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:

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