Save As Macro - Newbie question

[Victoir]

Hi

My experience is limited to recording the occasional macro, but I need to create a Macro that saves loads of worksheets as CSV files. I've a list of the worksheets to select, and a concatenated list of the path and filenames I'd like them saved as on the worksheet 'Control'.

I've really tried with the search function, but, as I said, I've got zero experience with this sort of thing. Please take pity on me!

Thanks.

 

[Victoir]

Anyone?

 

[Victoir]

It would be immensely helpful!

 

[Victoir]

I can obviously give more details if they're needed.

If I don't find out how to do this then I'll have to manually 'save as' over 1000 sheets in the next couple of weeks.

That would be bad. ;(

 

[Victoir]

I've tried the code below. There's obviously something wrong with the way I'm trying to use the variables in the activate and save statements, but I can't find what.

Sub Macro2()
Dim strFileName As String
Dim Wsheet As String
strFileName = Worksheets("Key").Range("D18")
Wsheet = Worksheets("Key").Range("A18").Text
Worksheets(Wsheet).Activate
ActiveWorkbook.SaveAs Filename:= _
strFileName _
, FileFormat:=xlCSV, CreateBackup:=False
End Sub

Obviously, even if I get this working, I'll need to enhance it to loop over a values in a range of cells.