Need CommandButton to run macro and change cell color

[taser241]

I have the following code that works fine within the given range. However, if a cell within the given range meets the criteria of the macro, how can I add code to change that cell's color to red?


Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim rng As Range
For Each rng In Range("D5:D6,D10:D18")
If rng > Range("D21") / 2 Then
rng = Range("D21") / 2
End If
Next rng
Application.ScreenUpdating = True
End Sub

[LJMetzger]

Hi taser241,

The following will color a cell red:

Please Login or Register  to view this content.

To clear color from a cell:

Please Login or Register  to view this content.

Lewis

[JOHN H. DAVIS]

Maybe:

Please Login or Register  to view this content.

[taser241]

Lewis and John,

Thank you so much. Both worked great.

[JOHN H. DAVIS]

You're welcome. Glad too help out and thanks for the feedback. Please mark this thread as SOLVED. See link for guidance.

http://www.excelforum.com/forum-rule...rum-rules.html