Any way to make it better?

[hitbid]

Just a quick question,

Since I've been learning arrays I've tried to interject them into places where I can.

For example here, I am deleting certain columns based on their column number, pre-set in an array.

Dim cols As Variant
Dim counter As Double
Dim Top As Double


cols = Array(8, 5, 3)
Top = UBound(cols)


For counter = 0 To Top
    Columns(cols(counter)).Delete
Next counter

How could this code be even simpler or easier? I just want to learn how to fry a fish differently.

 

[My Aswer Is This]

You can try this:

Sub Columns_Delete()
'Modified  7/15/2018  9:03:32 PM  EDT
Range("C1,E1,H1").EntireColumn.Delete
End Sub

 

[JoeMo]

maybe:

Sub Easier()
Range("C:C,E:E,H:H").Delete
End Sub

 

[hitbid]

Thx. I think I've gone loop crazy.

 

[Rick Rothstein]

Thx. I think I've gone loop crazy.

But, if you did want to use a loop, this is a way to simplify the code you posted earlier...

Dim V As Variant
For Each V In Array(8, 5, 3)
  Columns(V).Delete
Next