This peice of code goes all the way across the workbook an changes white blank columns to white columns with IN written on it.

Can anyone adapt this code so that it goes down a column rather than across a row, i tried changing the words Row to Column but that didn't work!


VBA:

Sub Macro_In()
Dim c As Range

For Each c In Range(Cells(ActiveCell.Row, 4), Cells(ActiveCell.Row, 56))
If c.Interior.ColorIndex = 2 Or c.Interior.ColorIndex < 0 And Len(c) = 0 And c.FormulaR1C1 = "" Then
c = "IN"
End If

Next c

End Sub