VBA code for saving csv file to certain path

[Michael 1962]

I need code to save a file with the following attributes. This path is on a network.
Name file string found in cell F1
Save file as .csv file
Save file to this path: H:\Private\Distribution\Small Package List\CSV

This file originates as an xlsm.

[TMShucks]

Maybe:

[vba]
ChDir "H:\Private\Distribution\Small Package List\CSV"
ActiveWorkbook.SaveAs _
Filename:= "H:\Private\Distribution\Small Package List\CSV\Sample Test.csv", _
FileFormat:=xlCSV, _
CreateBackup:=False
[/vba]


Regards, TMS

[mancubus]

[vba]
Sub file_SaveAs()

Dim wb As Workbook, ws As Worksheet
Dim fPath As String, fName As String

Set wb = ThisWorkbook 'refers to workbook that contains this macro
'or
'Set wb = ActiveWorkbook 'refers to workbook which is currently active
'or
'Set wb = Workbooks("MyBook.xlsm")

Set ws = wb.Worksheets("Sheet1") 'change to suit
'or
'Set ws = wb.ActiveSheet

fPath = "H:\Private\Distribution\Small Package List\CSV"
If Right(fPath, 1) <> "\" Then fPath = fPath & "\"
fName = ws.Range("F1").Value

wb.SaveAs Filename:=fPath & fName, FileFormat:=xlCSV

End Sub
[/vba]