Abrir explorador de Windows y obtener ruta de archivo seleccionado

Códigos:

'Código que filtra todos los archivos

Sub AbreExploradorTodos()
myfile = Application.GetOpenFilename()
Cells(2, 2) = myfile
End Sub

'Código que filtra archivos de Excel

Sub AbreExploradorExcel()
myfile = Application.GetOpenFilename("Archivos Excel (*.xl*), *.xl*")
Cells(3, 2) = myfile
End Sub

'Código que filtra archivos de Word

Sub AbreExploradorWord()
myfile = Application.GetOpenFilename("Archivos Word (*.doc*), *.doc*")
Cells(4, 2) = myfile
End Sub

'Código que filtra archivos Txt

Sub AbreExploradorTexto()
myfile = Application.GetOpenFilename("Archivos de Texto (*.txt*), *.txt*")
Cells(5, 2) = myfile
End Sub

'Código que filtra archivos JPG

Sub AbreExploradorJPG()
myfile = Application.GetOpenFilename("Archivos de Imagenes (*.jpg*), *.jpg*")
Cells(6, 2) = myfile
End Sub

'Código que filtra archivos PDF

Sub AbreExploradorPdf()
myfile = Application.GetOpenFilename("Archivos PDF (*.pdf*), *.pdf*")
Cells(7, 2) = myfile
End Sub

'Código que filtra archivos de Word, Excel y PDF a la vez

Sub AbreExploradorWordExcelPdf()
myfile = Application.GetOpenFilename("Archivos Word Excel PDF (*.doc*;*.xls*;*.pdf*), *.doc*;*.xls*;*.pdf*")
Cells(8, 2) = myfile
End Sub

'Código que filtra archivos JPG, PNP y BMP a la vez

Sub AbreExploradorJpgPngBmp()
myfile = Application.GetOpenFilename("Archivos JPG PNG BMP  (*.jpg*;*.png*;*.bmp*), *.jpg*;*.png*;*.bpm*")
Cells(9, 2) = myfile
End Sub