delete column

[Maheshp]

Hi
below code not working as he suppose to...
when i run macro it delete entire column against range("A1:A5")
i want to delete column from 4 to 1 , Column B is my first column
i will appreciate any help on this

Sub test()
Dim rng As Range
Dim c As Range
Set rng = Range("A1:A5")
For Each c In rng
For i = 4 To 1 Step -1
c.Offset(0, i).EntireColumn.Delete
Next i
Next c
End Sub

 

[JackDanIce]

What exactly are you trying to achieve with the code? Are you just trying to delete columns B, C, D and E? Why do you have a loop inside a loop?

 

[Maheshp]

Thanks 4 reply.
Actually if i get the answer of this thread i will able to resolve my below thread

[thread] http://www.mrexcel.com/forum/showthread.php?t=532998 [/thread]