Bereich aus versch. Spalten

auf einem Tabellenblatt sind einige Spalten ausgeblendet und einige nicht. Sichtbar ist z.B. Spalte 3, 5, 9 u.s.w.

Nun möchte ich per VBA die sichtbaren Spalten z.B. beding formatieren. Dazu spreche ich die sichtbaren Zellen an über:
...CurrentRegion.SpecialCells(xlCellTypeVisible)

Mein Problem: Es werden alle Zellen angesprochen. auch die wo die Spalten eigentlich ausgeblendet sind. Wie erreiche ich, dass wirklich nur die sichtbaren Spalten angesprochen werden?

Torsten