Need some help I am a newbie to VBA

[Spiffierlime]

Need help solving my VBA Riddle please someone with the professional knowledge, Please

VBA

Private Sub CommandButton3_Click()

If Range("V1").Value = ("Complete") Then ' this code needs changing to look at a cell on another sheet i.e sheet 1 Range A1
ActiveSheet.Shapes("Oval 57").Fill.ForeColor.RGB = RGB(252, 74, 235)
Else
ActiveSheet.Shapes("Oval 57").Fill.ForeColor.RGB = RGB(255, 255, 255)

End If
'Need to loop this code to check Range V2 and fill Oval 58 and so on RangeV3, and fill oval 59, RangeV4 and fill Oval 60 untill the end
End Sub

 

[Spiffierlime]

Ok it passed that bit but error can't find
ActiveSheet.Shapes("Oval " & i).Fill.ForeColor.RGB = RGB(252, 74, 255)

 

[Spiffierlime]

when I hover the mouse over Oval 1 it does allow me to selct instead a hand appers as if to hyperlink, but the oval has turned yellow

 

[Fluff]

Is the shape actually called "Oval 1"?
If the cursor is changing to a hand it suggests that you have a macro assigned to the shape.

 

[Spiffierlime]

Yes it's called Oval 1, and yes I did, have removed the macro,

Still Error on
Error can't find
ActiveSheet.Shapes("Oval " & i).Fill.ForeColor.RGB = RGB(252, 74, 255)

 

[Fluff]

Not quite sure why you have a rectangle called Oval, but that's not a problem.
Are you running the code from the command button that's visible in your image?

 

[Spiffierlime]

yes the command button is visable

 

[Spiffierlime]

it is oval it was the selection box causing it to look like a rectangle

 

[Fluff]

Do you have both shapes Oval 1 & Oval 2?

 

[Spiffierlime]

Yes Oval 1 and Oval 2

 

[Fluff]

Double check that you don't have two or more spaces between Oval & 1
Other than that I can't think why you would get the error.