Möchte wenn ich einem TabBlatt auf A1 doppelklicke, das "Vorlage" eingeblendet wird.
Leider funktioniert es nicht, es kommt immer die MsgBox.
Wo liegt bitte der Fehler.
Danke
Sg, Heinz
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Ende
If Target.Address(0, 0) = "A1" Then
Sheets("Vorlage" & CStr(Range("A1"))).Visible = True
Cancel = True
Sheets("Vorlage" & CStr(Range("A1"))).Activate
End If
Ende:
If Err.Number = 9 Then MsgBox "Blatt nicht vorhanden"
End Sub