Macro to name file using cell reference issue

[lewis1]

Hi,

I am using the following vba save code;

ActiveWorkbook.SaveAs Filename:= _
"G:\Baskets\" & Format(Now, "yyyy-mm-dd ") _ 
& Range("C104").Value & " " & Range("C102").Value & " Basket1.xlsm" _
 , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

Cell C104 = "BUY"
Cell C102 = "lots"

However the name says "BUY BUY" instead of "BUY lots"

Any help would be appreciated.

Thanks,
Lewis.

 

[JoeMo]

Before the code you posted or in the Immediate Window run this line:

MsgBox Range("C104").Value & vbNewLine & Range("C102").Value

What does the message box return?