hey i get the following error:

Run-time error '1004':

Method 'Range' of object '_Global' failed


when i try execute the following macro:


Code:
--------------------
Sub Macro_ContractTermination()
Dim c As Range


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

Next c

End Sub
--------------------


Can anyone work out whats going wrong, or maybe i've typed the macro
incorrectly. what it is ment to do is the user chooses a start cell
and then when its executed every cell in the chossen column up to cell
370 changes colour, but its only the blank white cells that change.


--
alymcmorland
------------------------------------------------------------------------
alymcmorland's Profile: http://www.excelforum.com/member.php...o&userid=27652
View this thread: http://www.excelforum.com/showthread...hreadid=477442