save file as cell value.xls

[smokenack]

The following portion of code should save the active workbook in a folder named "sent paysheets" and rename it with the date shown in cell F15 on the active sheet

    ChDir "O:\Supervisors\sent paysheets"
    ActiveWorkbook.SaveAs Filename:=Range("F15").xls, _
         FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

run time error 438 object doesn't support this property or method results.

any ideas?

thanks for looking

Nick

 

[goldfish]

Try

Filename:=Range("F15").value & ".xls"

Since Filename takes a string so for the first part of your string you have Rang.("F15").value and for the later part you have ".xls" and you need to combine the strings with a &.

HTH,
~Gold Fish

 

[smokenack]

Thanks for pointing me in the right direction Goldfish

Filename:=Range("F15").Text & ".xls"

did it.

Much appreciated

Nick