Open File Dialog Box

Sub ShowOpenDialog()
With Application.FileDialog(msoFileDialogOpen)
.Show
End With
End Sub