Hi,
I have the following code:
Dim fileSaveName As Variant
wbName = ActiveWorkbook.Name
fileSaveName = Application.GetSaveAsFilename(initialFilename:=wbName)
If VarType(fileSaveName) = vbBoolean Then Exit Sub
fileSaveName = Left(fileSaveName, Len(fileSaveName) - 1)...