Boa tarde a todos.
Eu pesquisei o assunto no fórum porém não consegui encontrar uma solução que adequasse ao meu problema.
Eu preciso de uma macro para alterar a cor de uma shapes quando ela é selecionada (clicada), e voltar a cor anterior quando anterior quando ela não esta mais selecionada.
A cor original de cada shapes é cinza, quando clicada ela passa a ser laranja, e quando eu seleciono outra shapes esta primeira volta a ser cinza novamente.
Eu estruturei um código porém onde o primeiro formatação acontece porém o segundo não, segue abaixo:

Sub Retângulodecantosarredondados6_Clique()

If Range("G19").Value <> "F" Then
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 8")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(226, 107, 10)
.Transparency = 0
.Solid
End With

ElseIf Range("G19").Value = "F" Then
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 8")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(89, 89, 89)
.Transparency = 0
.Solid
End With
End If

Range("G19").Select
Range("G19") = "F"
End Sub