Bom dia!!
Veja se te ajuda.
Fonte: http://www.ozgrid.com/VBA/ExcelsDialogBoxes.htm

Sub RetrieveFileName()

Dim sFileName As String



	'Show the open dialog and pass the selected _

	file name to the String variable "sFileName"

	

	sFileName = Application.GetOpenFilename

	'They have cancelled.

	If sFileName = "False" Then Exit Sub

	MsgBox sFileName

End Sub

Bom dia Alexandre,

Valeu a dica, resolvido com o codigo abaixo:

Private Sub CommandButton215_Click()
Dim sFileName As String

   'Show the open dialog and pass the selected _
   file name to the String variable "sFileName"

   sFileName = Application.ThisWorkbook.Name

   'They have cancelled.

'   If sFileName = "False" Then Exit Sub

   MsgBox sFileName
   
End Sub