Write Worksheet To Network Directory

[Guest]

I would like to output Sheet1 worksheet contents to a CSV file format to a
certain network directory listed below. I would like the file name to be in
the format listed below.

Network directory: F:\Marketing\June07
File Name Format : LINKSYS_YYMMDDHH Today
Today's File Name: LINKSYS_07100816

Please help me complete this task.

Thanks,

 

[JW]

I would like to output Sheet1 worksheet contents to a CSV file format to a
certain network directory listed below. I would like the file name to be in
the format listed below.

Network directory: F:\Marketing\June07
File Name Format : LINKSYS_YYMMDDHH Today
Today's File Name: LINKSYS_07100816

Please help me complete this task.

Thanks,

Sub tester()
Dim networkDirectory As String
Dim fName As String
networkDirectory = "F:\Marketing\June07\"
fName = "LINKSYS_" & Format(Now(), "yymmddhh")
ActiveSheet.SaveAs networkDirectory & fName, xlCSV
End Sub