Ich habe jetzt Excel 2010.
Seit her geht dieses Makro nicht mehr.
was muß geändert werden?
Gruß Gunter
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 3 And Target.Row > 14 And Target.Row Mod 2 = 1 Then Kalender.Show
End Sub