Save as Help VBA

[mr_average]

Sub SAVEasCSV()
'
' SAVEasCSV Macro
'
' Keyboard Shortcut: Ctrl+Shift+S
'
ChDir "F:\C Store Shared\Credit Cards\Tesoro Connect CSV Credit Card Files"
ActiveWorkbook.SaveAs Filename:=Range("A2")
, FileFormat:=xlCSV, CreateBackup:=False
End Sub


Trying to save as the date in cell A2 I have never really edited VBA.. just always used the macro recorder. Help Please!

 

[Joe4]

Try this:

[COLOR=#333333]Sub SAVEasCSV()[/COLOR]
[COLOR=#333333]'[/COLOR]
[COLOR=#333333]' SAVEasCSV Macro[/COLOR]
[COLOR=#333333]'[/COLOR]
[COLOR=#333333]' Keyboard Shortcut: Ctrl+Shift+S[/COLOR]
[COLOR=#333333]'
[/COLOR]Dim myFileName as String
myFileName = [COLOR=#333333]"F:\C Store Shared\Credit Cards\Tesoro Connect CSV Credit Card Files\" & Range("A2") & ".csv"[/COLOR]
[COLOR=#333333]ActiveWorkbook.SaveAs Filename:=[/COLOR]myFileName[COLOR=#333333], FileFormat:=xlCSV, CreateBackup:=False[/COLOR]
[COLOR=#333333]
End Sub[/COLOR]

Note if your date is formatted with slashes, you may need to change the format in the name, as Excel might not like that, i.e.
change

Range("A2")

to something like:

Format(Range("A2"),"mm-dd-yyyy")