I have four individual sheets and every individual sheet i need to copy to
another sheet and save as CVS Command Delimit and put a name
IGP_JUNE_CONV_2009_13.csv

Noe,

This does not check if the file exists in the specified location and assigns
a counter number as the file name. Anyhow, one way is below, so modify the
code as needed. I'm sure others will post code that will do what you want.

Best,

Matthew Herbert

Sub SaveWksAsCSV()
Dim Wks As Worksheet
Dim Wkb As Workbook
Dim strFPath As String
Dim intCnt As Integer

Application.ScreenUpdating = False
strFPath = "C:\Documents and Settings"

For Each Wks In ActiveWorkbook.Worksheets
Set Wkb = Workbooks.Add
With Wkb
Wks.Copy .Worksheets(1)
.Worksheets(1).Name = intCnt
.SaveAs strFPath & "\" & intCnt & ".csv", xlCSV
.Close False
End With
intCnt = intCnt + 1
Next Wks
End Sub


"Noe" wrote:

I have four individual sheets and every individual sheet i need to copy to
another sheet and save as CVS Command Delimit and put a name
IGP_JUNE_CONV_2009_13.csv

Matthew Herbert,

These is great thank you so much for you time, I just have an aditional
question in the same macro can select from Colum A thru E and cut and past
and the new book and save.

"Matthew Herbert" wrote:

Noe,

This does not check if the file exists in the specified location and assigns
a counter number as the file name. Anyhow, one way is below, so modify the
code as needed. I'm sure others will post code that will do what you want.

Best,

Matthew Herbert

Sub SaveWksAsCSV()
Dim Wks As Worksheet
Dim Wkb As Workbook
Dim strFPath As String
Dim intCnt As Integer

Application.ScreenUpdating = False
strFPath = "C:\Documents and Settings"

For Each Wks In ActiveWorkbook.Worksheets
Set Wkb = Workbooks.Add
With Wkb
Wks.Copy .Worksheets(1)
.Worksheets(1).Name = intCnt
.SaveAs strFPath & "\" & intCnt & ".csv", xlCSV
.Close False
End With
intCnt = intCnt + 1
Next Wks
End Sub


"Noe" wrote:

I have four individual sheets and every individual sheet i need to copy to
another sheet and save as CVS Command Delimit and put a name
IGP_JUNE_CONV_2009_13.csv

Matthew this is great, thank you so much.

"Matthew Herbert" wrote:

Noe,

This does not check if the file exists in the specified location and assigns
a counter number as the file name. Anyhow, one way is below, so modify the
code as needed. I'm sure others will post code that will do what you want.

Best,

Matthew Herbert

Sub SaveWksAsCSV()
Dim Wks As Worksheet
Dim Wkb As Workbook
Dim strFPath As String
Dim intCnt As Integer

Application.ScreenUpdating = False
strFPath = "C:\Documents and Settings"

For Each Wks In ActiveWorkbook.Worksheets
Set Wkb = Workbooks.Add
With Wkb
Wks.Copy .Worksheets(1)
.Worksheets(1).Name = intCnt
.SaveAs strFPath & "\" & intCnt & ".csv", xlCSV
.Close False
End With
intCnt = intCnt + 1
Next Wks
End Sub


"Noe" wrote:

I have four individual sheets and every individual sheet i need to copy to
another sheet and save as CVS Command Delimit and put a name
IGP_JUNE_CONV_2009_13.csv

Noe,

Replace
Wks.Copy .Worksheets(1)
with
Wks.Columns("A:F").Copy .Worksheets(1).Range("A1")
in order to copy columns "A:F" from the worksheet into the new workbook.

Best,

Matt

"Noe" wrote:

Matthew Herbert,

These is great thank you so much for you time, I just have an aditional
question in the same macro can select from Colum A thru E and cut and past
and the new book and save.

"Matthew Herbert" wrote:

Noe,

This does not check if the file exists in the specified location and assigns
a counter number as the file name. Anyhow, one way is below, so modify the
code as needed. I'm sure others will post code that will do what you want.

Best,

Matthew Herbert

Sub SaveWksAsCSV()
Dim Wks As Worksheet
Dim Wkb As Workbook
Dim strFPath As String
Dim intCnt As Integer

Application.ScreenUpdating = False
strFPath = "C:\Documents and Settings"

For Each Wks In ActiveWorkbook.Worksheets
Set Wkb = Workbooks.Add
With Wkb
Wks.Copy .Worksheets(1)
.Worksheets(1).Name = intCnt
.SaveAs strFPath & "\" & intCnt & ".csv", xlCSV
.Close False
End With
intCnt = intCnt + 1
Next Wks
End Sub


"Noe" wrote:

I have four individual sheets and every individual sheet i need to copy to
another sheet and save as CVS Command Delimit and put a name
IGP_JUNE_CONV_2009_13.csv