interdire l'ouverture de l'explorateur

Bonjour le forum,
dans la macro ci dessous j'affiche mes fichiers dans une listbox et un webbrowser sur mon bouton ouvrir le fichier j'ouvre le fichier en lancent acrobat reader

mais mon pb est que si je n'ai pas sélectionner de fichier dans ma listbox ma macro ouvre l'explorateur de windows

ma question est:
je n'arrive pas a lui interdire l'ouverture de l'explorer windows
par un message :" vous n'avez pas sélectionner de fichier dans la liste"
si vous avez une petite idée !!
un grand merci

Private Sub CommandButton5_Click()
Dim fichier_select As Variant
Dim chemin As String
Dim fichier As Object
Dim SourceFolderName As String
Dim listeFichiers, fs, fld As Object
Dim r As String
Dim d, f As Variant
Dim i As Integer
Dim pathr As String
Worksheets("Tool_Dossiers").Select
fichier_select = Me.ListBox1.Value
r = Range("A2") & "\Plans\3-Ensembles et détails\pdf\"
d = Array("Z:\affaires\", "W:\Affaires\") '
Set fs = CreateObject("Scripting.filesystemobject")
If Me.ListBox1.ListCount = False Then
MsgBox "Vous n'avez pas affiché les fichiers PDF" & vbCrLf & vbCrLf & "ATTENTION" & vbCrLf & vbCrLf & " Vous devez selectionner un fichier"
Exit Sub
End If

For i = LBound(d) To UBound(d)
pathr = d(i) & r

If fs.FolderExists(pathr) Then
Set fld = fs.GetFolder(pathr).Files
For Each f In fld
Next
' If ListBox1.Selected(fichier_select) = False Then
'MsgBox "Vous n'avez pas selectionner de fichier PDF"
'Exit Sub
'End If
ThisWorkbook.FollowHyperlink pathr & fichier_select 'ouvrir le fichier comme un hyper lien


End If

Next

End Sub