I want to delete the 2,3,4 column in my spreadsheet

[alvin6160]

Hi to all

I have a lot of data on my spreadsheet. Out of all the data, i want to see the 1, 5, 9 column so on and so forth. How can i delete the the column 2,3,4, 6,7,8 etc.


Thanks a lot

[TheShinE]

Try to run this for your workbook,

Sub test1()

For Each ws In Sheets

Set myRange = ws.UsedRange
For Each c In myRange.Rows(1).Cells

If c.Column <> 1 And c.Column <> 5 And c.Column <> 9 Then
Columns(c.Column).ClearContents
End If

Next

Next


End Sub

[alvin6160]

Hi shine

I tried it but it didn't delete the actual column is it possible to do that?

Thanks