Help on GetSaveas Filename

[Utkarsh]

Hi
While trying to save I file that I have created I am getting a "Type
Mismatch" error on the line
" If flname = False Then".

I would appreciate if someone can point out the mstake that I am making
(see code below).

Thanks
Utkarsh
******************************************************
flname = Application.GetSaveAsFilename
'MsgBox flname

If flname = False Then
MsgBox "Filename not selected"
ActiveWorkbook.Close False
Sheets("Cover Page").Select
Exit Sub
Else
ActiveWorkbook.Save
ActiveWorkbook.Close False
End If

 

[Ivan Raiminius]

Hi Utkarsh,

dim flname as variant (so that it can hold string and boolean False).

Regards,
Ivan

 

[Utkarsh]

It works! Thanks!