I have the below code that i made to change a the cell to the right to FontStrikeThrough IF the value to in tyhe cell was empty.
If it was not empty then the cell would Not be StrikeThrough

EG: The (6) in Cell D1 would be StrikeThrough as there is No value in C1.
The (5) is Normal Font as there IS a value in A1.

A B C D E F
1 10 5 6
2


I need to add to the below so it does the same to all these cells listed:
C100,E100,G100,I100..... AQ100
(Basically every 2nd Cell from C100 - AQ100)
How can i do this besides putting every cell in individually and running the code each time ?

~~~~~~~~~~~~~~~~~~~~~
Sub StrikeThrough()
With ActiveCell
If ActiveCell.Value = "" Then
ActiveCell.Offset(0, 1).Activate
With Selection.Font
.Strikethrough = True
End With
Else
ActiveCell.Offset(0, 1).Activate
With Selection.Font
.Strikethrough = False
End With
End If
End With
End
~~~~~~~~~~~~~~~~~~~~
--
Corey ....
The Silliest Question is generally
the one i forgot to ask.