Private myText2 As String
Sub RoundedRectangleCategory_Click()
ToggleShapeColor
Application.ScreenUpdating = False
If Worksheets("Risk Category Checklist").FilterMode Then
Worksheets("Risk Category Checklist").Range("$A$5:$T$500").AutoFilter , Field:=6
Else
Worksheets("Risk Category Checklist").Range("$A$5:$T$500").AutoFilter , Field:=6, Criteria1:=myText2
End If
End Sub
Private Sub ToggleShapeColor()
Dim Shp2 As Shape
<em><strong> Set Shp2 = ActiveSheet.Shapes(Application.Caller)</strong></em>
myText2 = Shp2.TextFrame2.TextRange.Characters.Text
With Shp2
If .Fill.ForeColor = RGB(56, 93, 138) Then
.Fill.ForeColor.RGB = RGB(0, 176, 80)
Else
.Fill.ForeColor.RGB = RGB(56, 93, 138)
End If
End With
End Sub