Alter Code

[vac]

Hi all,
How do I alter the following code to make it do the following:
Copy only columns A:D instead of all row
Search through more than 1 worksheet ie sheet2, sheet3, sheet4 etc

Sub Export()
Sheets("Sheet2").Select
Columns("A").SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Hidden = True
Selection.CurrentRegion.Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy Sheets("Sheet1").Range("A1")
Cells.Rows.Hidden = False
Range("A1").Select
End Sub

Many Thanks

 

[erik.van.geit]

you can refer to sheets using
Sheets(sheetindex)

For i = 10 to 20
'refer to Sheets(i) for your code
Next i

 

[vac]

Great OK, thanks Erik, I will try that tomorrow now.
Thanks for your help
vac