Hyperlink über Button öffnet nicht

Private Sub cmd_Bildsuchen_Click()
Dim r As Variant
r = Application.GetOpenFilename("Bilder / Fotos (*.jpg), *.jpg")
If r  False Then
txt_Bildjpg.Text = CStr(r)
End If
End Sub

Private Sub cmd_Bildreihe_Click()
''ausgesuchten Ordnernamen in Textfeld schreiben
Dim strPath As String
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.InitialFileName = "D:\Test\Bilder\"
.Title = "Ordner auswählen"
If .Show Then strPath = .SelectedItems(1)
End With
If strPath  vbNullString Then
MsgBox strPath
txt_Bildreihe.Value = strPath
End If
End Sub

Private Sub CommandButton2_Click()
'Daten speichern neuer Datensatz
Dim letzteZeile As Integer
Range("A65365").End(xlUp).Select
letzteZeile = ActiveCell.Row + 1
ThisWorkbook.Sheets("Tabelle1").Cells(letzteZeile, 1) = Vorgabe.Value
ThisWorkbook.Sheets("Tabelle1").Cells(letzteZeile, 2) = Namen.Value
ThisWorkbook.Sheets("Tabelle1").Cells(letzteZeile, 6) = cmbemail.Value
If Len(txt_Bildjpg.Text) > 0 Then
ActiveCell.Offset(1, 3).FormulaLocal = "=HYPERLINK(" & _
Chr(34) & "file:///" & txt_Bildjpg.Text & Chr(34) & ";" & _
Chr(34) & StrReverse(Split(StrReverse(txt_Bildjpg.Text), "\")(0)) & Chr(34) & ")"
If Len(txt_Bildreihe.Text) > 0 Then
ActiveCell.Offset(1, 4).FormulaLocal = "=HYPERLINK(" & _
Chr(34) & "file:///" & txt_Bildreihe.Text & Chr(34) & ";" & _
Chr(34) & StrReverse(Split(StrReverse(txt_Bildreihe.Text), "\")(0)) & Chr(34) & ")"
End If
End If
UserForm1.Hide
Unload UserForm1
End Sub

Private Sub cmdJPG_Click()
'Link in JPG-Spalte öffnen
Dim Zeile As Long
Dim Zelle As Range
Dim jpgFile As String
With Me.ListBox1
If .ListIndex  -2 Then
Zeile = .List(.ListIndex, .ColumnCount - 1)
Set Zelle = wksData.Cells(Zeile, 4) 'Zelle mit JPG-Hyperlink
jpgFile = Zelle.Hyperlinks(1).Address
'            ShellExecute 0, "open", jpgFile, "", "", 0 '0 = Parameter zur Anzeige
ActiveWorkbook.FollowHyperlink jpgFile
End If
End With
End Sub

Private Sub ListBox1_Click()
'Prüfen ob zum Gerät Hyperlinks vorhanden sind und entsprechende Schaltfläche(n) aktivieren
Dim Zeile As Long
Dim Zelle As Range
Me.cmdPDF.Enabled = False
Me.cmdJPG.Enabled = False
Me.cmdWORD.Enabled = False
Me.cmdPP.Enabled = False
Me.cmdJPGREIHE.Enabled = False
Me.txbPDF = ""
Me.txbJPG = ""
Me.txbWORD = ""
Me.txbPP = ""
Me.txbJPGREIHE = ""
With Me.ListBox1
If .ListIndex  -1 Then
Zeile = .List(.ListIndex, .ColumnCount - 1)
'            Set Zelle = wksData.Cells(Zeile, 5) 'Zelle mit PDF-Hyperlink
'            If Zelle.Hyperlinks.Count > 0 Then
'                Me.cmdPDF.Enabled = True
'                Me.txbPDF = Zelle.Hyperlinks(1).Address
'            End If
Set Zelle = wksData.Cells(Zeile, 4) 'Zelle mit JPG-Hyperlink
If Zelle.Hyperlinks.Count > 0 Then
Me.cmdJPG.Enabled = True
Me.txbJPG = Zelle.Hyperlinks(1).Address
End If
'            Set Zelle = wksData.Cells(Zeile, 11) 'Zelle mit Word-Hyperlink
'            If Zelle.Hyperlinks.Count > 0 Then
'                Me.cmdWORD.Enabled = True
'                Me.txbWORD = Zelle.Hyperlinks(1).Address
'            End If
'            Set Zelle = wksData.Cells(Zeile, 12) 'Zelle mit PP-Hyperlink
'            If Zelle.Hyperlinks.Count > 0 Then
'                Me.cmdPP.Enabled = True
'                Me.txbPP = Zelle.Hyperlinks(1).Address
'            End If
Set Zelle = wksData.Cells(Zeile, 5) 'Zelle mit JPGREIHE-Hyperlink
If Zelle.Hyperlinks.Count > 0 Then
Me.cmdJPGREIHE.Enabled = True
Me.txbJPGREIHE = Zelle.Hyperlinks(1).Address
End If
End If
End With
End Sub