I am using a macro (called save_it see below) to save a file with a specific format as illustrated below. My problem is that when I execute this macro file, save as the File Name box is populated with the specific file format BUT enclosed in quotation marks. Naturally this does not allow me to actually save the file.

Can you please help me in fixing this issue?

"Customer site - Technology & Mobile (without Satellite) Event Request for 2010 Feb 2 - Abc test co. - V 20090813 Time 10 20 28.xls"


Sub Save_it()


Dim strCustomer, strCustomerClean, strSavePrompt, strContract, strTest As String
strRecipient = "david.steele@agilityrecovery.com"

' Determine the Customer name - and strip illegal characters
strCustomer = Range("Customer")
strCustomerClean = StripIllegals(strCustomer)

' To prevent loops
Range("Macro_save") = "True"

' Collect the test date
'If Range("TestTypeCalc") = 2 Or Range("TestTypeCalc") = 4 Then
strDate = Range("Start_Year") & " " & Range("Start_Month") & " " & Range("Start_Day")
'ElseIf Range("TestTypeCalc") = 3 Or Range("TestTypeCalc") = 5 Then
'strDate = Range("Agil_Start_Year") & " " & Range("Agil_Start_Month") & " " & Range("Agil_Start_Day")
'End If

' Collect the contract type
strContract = Range("ContractEntryDropBox")

' Collect the test type
strTest = Range("ActualTestType")


' Collect current date
strVerDate = Range("Ver_Date")

'strFileName = "TRF - " & strDate & " - " & strCustomer & " - " & strContract & " - " & strTest & strVerDate
strFileName = strTest & " Event Request for " & strDate & " - " & strCustomer & " - " & strVerDate

Application.Dialogs(xlDialogSaveAs).Show strFileName

ScreenLock_off
Range("Saved_Time") = Time
ScreenLock_on
End Sub
Public Function Screen_off()
'
' Turns screenupdating off
If Application.ScreenUpdating <> True Then
    Application.ScreenUpdating = False
End If
End Function
With:
strTest = Customer site - Technology & Mobile (without Satellite)
strDate = 2010 Feb 2
strCustomer = Abc test co.
strVerDate = V 20090813 Time 10 20 28