Code not working within hidden column range

[RobN]

Using vs 2007, how can this be modified so that it will colour hidden
columns within the range?

If Target = "F" Then
With Target.Offset(0, -ColNumber + 1).Resize(1, ColNumber + 15).Interior
.ColorIndex = 5
.Pattern = xlSolid
End With
End If

Rob

 

[Jarek Kujawa]

Would this help?


If Target = "F" Then
With Target.Offset(0, -ColNumber + 1).Resize(1, ColNumber +
15).Select
For Each cell In Selection
If cell.Columns.Hidden Then
cell.Columns.EntireColumn.Interior.ColorIndex = 5
End If
Next cell
End With
End If