زر اوامر لفتح ملفات متعددة من الفورم

Private Sub CommandButton1_Click()
Dim mm As String
mm = ThisWorkbook.Path
ActiveWorkbook.FollowHyperlink mm & "\m.docx"
End Sub