Try the following:

Dim iMinCol as integer
Dim iMaxCol as integer
Dim i as integer

iMinCol = 1
iMaxCol = n

For i = iMinCol to iMaxCol
If Sheet1.Cells(1, i).Value = "Power" Then
Sheet1.Columns(i).Delete
Exit For
End If
Next i


*** Sent via Devdex http://www.devdex.com ***
Don't just participate in USENET...get rewarded for it!