'Get file path and put it in the proper cell
Sub GetFilePath()
Dim DialogBox As FileDialog
Dim path As String
Set DialogBox = Application.FileDialog(msoFileDialogFilePicker)
DialogBox.Title = "Select quarterly report for " & Range("A" & ActiveCell.Row) & _
" " & Range("B" & ActiveCell.Row)
DialogBox.Filters.Clear
DialogBox.Show
If DialogBox.SelectedItems.Count = 1 Then
path = DialogBox.SelectedItems(1)