New feature! Upgrade and increase expert visibility of your issues with Priority Questions.
Public Function BrowseForFile() Dim fDialog As Office.FileDialog Dim varFile As Variant Dim strLinkToFile As String strLinkToFile = "" Set fDialog = Application.FileDialog(msoFileDialogFilePicker) With fDialog .AllowMultiSelect = False .Title = "Browse for Spreadsheet" .Filters.Clear .Filters.Add "Spreadsheets", "*.xls" .Filters.Add "All Files", "*.*" If .Show = True Then For Each varFile In .SelectedItems strLinkToFile = varFile LinkExcelSpreadsheet (strLinkToFile) Next Else Exit Function End If End With End Function
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.