Can't change the range

[listerheb]

Hi I have this macro which I found while searching the board.

it works but I am having trouble changing it to meet my needs.
Sub HideColumns()

Dim i As Integer
On Error Resume Next
Application.ScreenUpdating = False
With Range("d2:Iq2")
.EntireColumn.Hidden = False
For i = 1 To .Columns.Count
If .Columns(i).Value = "" Then
.Columns(i).EntireColumn.Hidden = True
End If
Next i
End With
Application.ScreenUpdating = True
End Sub

seems to work fine in hiding the columns that have nothing in D
but as soon as I change it to my range which is d2:iq40 it stops working properly.
Can anyone help me change it so that it will hide columns only when there is no data in D2:IQ40

 

[Tom Urtis]

See if this gets you closer to what you need.

Sub HideColumns()
Application.ScreenUpdating = False
Range("D:IQ").EntireColumn.Hidden = False
Dim i As Integer
For i = 4 To 251
If Application.CountA(Range(Cells(2, i), Cells(40, i))) = 0 Then Columns(i).EntireColumn.Hidden = True
Next i
Application.ScreenUpdating = True
End Sub