Hi Rudy,

you can use simple custom function:

Function ColumnVisible(Target As Range) as boolean
ColumnVisible = Not Target.cells(1,1).Columns.Hidden
End Function

And conditional formatting with formula =columnvisible(a1) with
appropriate formating for visible and hidden column.

Let me know if you need more help.

Regards,
Ivan