Conditional Formatting on .jpgs

Hello
Some basic code would be:

Sub Button1_Click()

Select Case Sheet1.Range("G17")
    Case Is = 0
        Sheet1.Shapes("Rectangle 2").Visible = True
    Case Is = 1
        Sheet1.Shapes("Rectangle 2").Visible = False
End Select

End Sub

This is on a Command Button and shows/hides Rectangle 2 on Sheet 1.

DBY