Application.GetSaveAsFilename not returning InitialFileName

[lnagel]

I have the following code for a Save As Dialog Boc
I have set a value to Initialname and I have specified that InitialFileName:=Initialname which then is supposed to set a default Save As name in the dialog box

Initialname = targetSheet.Range("BP37") & "-Imported"
fileSaveName = Application.GetSaveAsFilename(InitialFileName:=Initialname, FileFilter:="Excel Files (*.xlsm), *.xlsm", title:="Save As")
If fileSaveName <> False Then
ThisWorkbook.SaveAs Filename:=fileSaveName
MsgBox Initialname

When code is ran :
1.) Dialog box works except that InitialFileName=Initialname does not show in box - there is nothing showing as default file name
2.) If I type in a filename and click save the file is saved using the name entered
3.) the MsgBox does appear and does show the correct value for Initialname

So it appears to me that InitialFileName:= function is either not working or I am missing something in syntax?

Thanks in advance for any assistance

 

[Fluff]

What is the value in BP37?

 

[lnagel]

It contains text - version number.

So here's something - If I simply change InitialFileName:=Initialname to text instead of variable InitialFileName:="Initialname" then it works

 

[lnagel]

Not sure if this makes a difference - had to define variables as

Dim IntialName As String
Dim fileSaveName As Variant

If I define filesavename as string - I get error in that processing

 

[Fluff]

You can

Dim fileSaveName As String

but you then need to test it like

If filesavename <> "False" Then

What is the exact contents of BP37? Because that may be why you are not getting the initial name

 

[lnagel]

[/URL]

 

[lnagel]

Cell is formatted as TEXT

 

[lnagel]

At the end I do a msgbox initialname and the variable is getting the text

 

[Fluff]

It's because of the . in 2.6
If you remove that (or replace it with something else) then it will work

 

[lnagel]

WOW - It probably would have taken me a month of Saturdays before I would have stumbled on to that....... TYVM!