Hallo

vorausgesetzt in der Spalte A stehen auch wirklich nur Blattnamen die auch existieren

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        Cancel = True
        Sheets(Target.Text).Activate
    End If
End Sub

MfG Tom