Type mismatch in SaveAs method

[mae0429]

Hello everyone, I keep getting a type mismatch when I try to run this, saving it as something different than it currently is named:

msb3 = MsgBox("Would you like to save the updated file, prior to sheet-splitting?", vbYesNo, "Save updates?")
If msb3 = vbYes Then
    fileSaveName = Application.GetSaveAsFilename(FileFilter:="Excel Files (*.xls), *.xls")
    If fileSaveName <> False Then
        ThisWorkbook.SaveAs Filename:=fileSaveName
    End If
End If

Any reason this shouldn't work?

 

[Richard Schollar]

Hi

If you've defined fileSaveName as anything other than a variant (or boolean, which would make no sense) then you will get a type mismatch as a string can't equal False (hence the mismatch). Dim it as a Variant and the code should work.

 

[mae0429]

Bingo! Thanks Richard!