geiler shit

Sub square_Klicken()
  If ActiveSheet.Shapes.Range(Array("square")).TextFrame.Characters.Text = "X" Then
    ActiveSheet.Shapes.Range(Array("square")).TextFrame.Characters.Text = ""
  Else
    ActiveSheet.Shapes.Range(Array("square")).TextFrame.Characters.Text = "X"
  End If
End Sub