Code not working within hidden column range

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

RobN - 24 Mar 2008 05:58 GMT

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

Reply to this Message

Jarek Kujawa - 24 Mar 2008 10:54 GMT

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

Reply to this Message