logic problem PLEASE HELP

[missprogrammer]

I can not figure out how to select the last four columns.The code below stores the first column, but from there i want to select the next 3 column. Within the column i want to select the cells that are null and where the cell is not already black and turn red

If .cells(y - 1, x) <> &quot;Answer&quot; Then

blnStop = True
intCalcCol = x

I want to add this into my VBA CODE

 

[DarkSun]

Not sure if I understand what you are trying to achieve but have you tried Conditional Formatting??