[Duda] OpenFileDialog en Excel

[devilboy9999]

Bueno tengo una macro ke tomas 4 archivos y hace varias cosas con ellos.

El problema es ke yo tengo ke escribir la ruta y el nombre de los 4 archivos en el codigo.

Habrá alguna forma de hacer mejor esto??

existe un filedialog o algo ke se le paresca???

salu2

Edito: lo tengo

Sub UseFileDialogOpen()

Dim lngCount As Long

' Open the file dialog
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Show

' Display paths of each file selected
For lngCount = 1 To .SelectedItems.Count
MsgBox .SelectedItems(lngCount)
Next lngCount

End With

End Sub

[mrocf]

Gracias por compartir tu solución.