Deletes certain columns
 

Hi, I have 25 columns.
I need to write a macro which goes through each column,
keeps:
1) Billing
2) GM
3) Total
4) Client
5) Project Name

but deletes the rest

I guess its something like this, many thks

sub del()

Dim i As Long
Dim aryTest

aryTest = Array("Billing ", "GM", "Total","Client","Project Name")

For i = 25 To 1 Step -1
If Not IsError(Application.Match(Cells(1, i).Value, aryTest, 0)) Then
'Keep
Else
'Delete
End If
Next i


End Su

--
T De Villier
-----------------------------------------------------------------------
T De Villiers's Profile: http://www.excelforum.com/member.php...fo&userid=2647
View this thread: http://www.excelforum.com/showthread.php?threadid=56779

Deletes certain columns
 

Sub del()
Dim i As Long
Dim aryTest As Variant

aryTest = Array("Billing ", "GM", "Total", "Client", "Project Name")

For i = 25 To 1 Step -1
If IsError(Application.Match(Cells(1, i).Value, aryTest, 0)) Then
Columns(i).Delete
End If
Next i
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"T De Villiers"
wrote in message
Hi, I have 25 columns.
I need to write a macro which goes through each column,
keeps:
1) Billing
2) GM
3) Total
4) Client
5) Project Name
but deletes the rest
I guess its something like this, many thks

sub del()

Dim i As Long
Dim aryTest

aryTest = Array("Billing ", "GM", "Total","Client","Project Name")

For i = 25 To 1 Step -1
If Not IsError(Application.Match(Cells(1, i).Value, aryTest, 0)) Then
'Keep
Else
'Delete
End If
Next i


End Sub
--
T De Villiers

Deletes certain columns
 

Thanks a lot Ji

--
T De Villier
-----------------------------------------------------------------------
T De Villiers's Profile: http://www.excelforum.com/member.php...fo&userid=2647
View this thread: http://www.excelforum.com/showthread.php?threadid=56779