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

There is a typo in this line: AcitiveCell instead of ActiveCell

For Each c In Range(AcitiveCell, Cells(370, ActiveCell.Column))

Regards,
Stefi

€žalymcmorland€� ezt Ã*rta:


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

Hello alymcmorland,

If you want to change the color of all the cells regardless of curren
color or content, this code will do that for you

Dim Addx As String
Dim Col As Long
Dim Row As Long

Row = ActiveCell.Row
Col = ActiveCell.Column

Addx = Cells(Row, Col).Address & ":" & Cells(370, Col).Address
ActiveSheet.Range(Addx).Interior.ColorIndex = 56


Sincerely,
Leith ros

--
Leith Ros
-----------------------------------------------------------------------
Leith Ross's Profile: http://www.excelforum.com/member.php...fo&userid=1846
View this thread: http://www.excelforum.com/showthread.php?threadid=47744

Well its only blank white cells that i need to change, if they have
value in there or are a different colour then i don't want it t
change!

But thank you for the feedback anywa

--
alymcmorlan
-----------------------------------------------------------------------
alymcmorland's Profile: http://www.excelforum.com/member.php...fo&userid=2765
View this thread: http://www.excelforum.com/showthread.php?threadid=47744