Exporting columns in excel file to csv format

[excelguru]

Please see picture attached of the excel file I have.I want to do th
following steps using a macro..

step1.) select data from column A, rows 6 to rows 4006
step2.) select data from column B, rows 6 to rows 4006
step3.) export it as an csv file, name of the file will be the tex
found in cell B-5.

step 4.) select data from column A, rows 6 to rows 4006
step 5.) select data from Column C, rows 6 to rows 4006
step 6.) export it as an csv file, name of the file will be the tex
found in cell C-5.

So the pairs of data will be
A-B; A-C;A-D............................;A-CN

Thank-you in advance for the macro..

excelguru

+-------------------------------------------------------------------
|Filename: new.jpg
|Download: http://www.excelforum.com/attachment.php?postid=2740
+-------------------------------------------------------------------

 

[crispbd]

Just copy and paste the code below into a new module in your master
data workbook and run "ExportToCSV"


Sub ExportToCSV()

On Error Resume Next
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Dim RefPage As Object
Dim NewWB As Object

'setup reference page

Set RefPage = ThisWorkbook.Sheets(1)

' change this to the master data sheet we are copying from

'Adata stores the A column Data
'OtherData stores the B, C, D, .... , CN column data

Dim Adata As Object, OtherData As Object

'loops B to CN columns

For colcount = 2 To 92
Set NewWB = Workbooks.Add
Set Adata = RefPage.Range("a6:a4006")
Adata.Copy
NewWB.Sheets(1).Select
NewWB.Sheets(1).Cells(1, 1).Select: ActiveSheet.Paste
Set OtherData = RefPage.Range(RefPage.Cells(6, colcount)
RefPage.Cells(4006, colcount))
OtherData.Copy
NewWB.Sheets(1).Select
NewWB.Sheets(1).Cells(1, 2).Select: ActiveSheet.Paste
NewWB.SaveAs Filename:=RefPage.Cells(5, colcount).Value & ".csv"
_
FileFormat:=xlCSV, CreateBackup:=False
NewWB.Close
Next
Application.ScreenUpdating = True

End Su