Creating a new file and naming it with text and cell reference

[3129zientya]

Hi,

I am trying to create a macro that will create a new excel file that will be named : Hub Date.xls

Date needs to come from a certain cell that will change dates and Hub will always remain the same (there is no way to reference the hub cell because the location will always change)

Thanks.

 

[andiemac]

I might not be total clear on what you meant by "date needs to come from certain cell" when later you say "cell locations changes". But, if the date is always in, for example A1, and its already in text format...

Sub test()

sFile = "Hub_" & Worksheets("SomeSheet").Range("A1").Value & ".xls"


End Sub

Or you many need to format the date as text first:

Sub test()

YourDt= Format(Range("A1").Value , "yyyymmdd")
sFile = "Hub_" & YourDt & ".xls"


End Sub

 

[Smitty]

Welcome to the Board!

ActiveWorkbook.SaveAs Filename:="Drive:\Path\Hub " & Sheets("Sheet1").Range("A1").Value & ".xlsm"

If you're referencing a date you'll need to use Format to set the style to be valid for a file name (i.e. no "/"'s)

You can record a macro performing a save as to get the path you want.

HTH,

 

[3129zientya]

thank you both. smitty your's worked perfect.