Hozzászólás: [Resolved] Megjegyzés helyett

Rajzoltam 2 téglalapot, amiknek olyan formát adtam, amilyen a megjegyzés. Az elsőnek Megj1, a másiknak Megj2 nevet adtam.
A laphoz rendeltem egy makrót, ami magáért beszél.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim a As Integer
    
    For a = 1 To ActiveSheet.Shapes.Count
        ActiveSheet.Shapes(a).Visible = False
    Next
    Select Case Target.Address
        Case "$A$1"
            Shapes("Megj1").Visible = True
        Case "$B$5"
            Shapes("Megj2").Visible = True
    End Select
End Sub

Persze makróbarátként kell menteni a füzetet.