Looping through and coloring cell

[alx1056]

Hello,

I have some data that I want to color once a button is clicked. I want it to go to the next cell and stop once the cell contains an empty string.

Here is my code:

Private Sub CommandButton1_Click()
    Dim C As Variant
    
    Range("A1").Select
    
    C = ActiveCell.Offset(1, 0).Value
    
    Do
        ActiveCell.Offset(1, 0).Select
        C.Interior.Color = vbMagenta
         
    Loop While ActiveCell.Value <> " "
    

End Sub

I keep getting an error of: "Run-Time Error 424 object required.

Thanks!

 

[Joe4]

c is the value of the cell, yet you are treating it like a range object.

Try this:

Private Sub CommandButton1_Click()

    Dim r as Long

    r = 1
    Do Until Cells(r, "A") = ""
        Cells(r, "A").Interior.Color = vbMagenta
        r = r + 1
    Loop

End Sub