Např:
with cells(2,2)
select case .interior.color
case vbblack: .font.color = vbwhite
case else: .font.color = vbblack
end select
end withnebo místo celého toho řádku s ElseIf napsat jenom Elsecitovat
with cells(2,2)
select case .interior.color
case vbblack: .font.color = vbwhite
case else: .font.color = vbblack
end select
end withnebo místo celého toho řádku s ElseIf napsat jenom Elsecitovat