I would like to be able to have an open file dialog box pop up to find the file name and location in lieu of what I currently have below. Ideally the file name and path name would all be listed in the same cell (A4). Any suggestions would be greatly appreciated. Thanks!
Sub UPDATE()
Dim ThisPath11 As String '''Holds path of USEC Enrichment File
Dim FName11 As String '''Holds filename of USEC Enrichment File
ThisPath1 = Range("A4")
FName1 = Range("B4")
Application.DisplayAlerts = False
Application.CutCopyMode = False
Set Oldworkbook11 = Workbooks.Open(FileName:=ThisPath1 & FName1)
End Sub
Sub UPDATE()
Dim ThisPath11 As String '''Holds path of USEC Enrichment File
Dim FName11 As String '''Holds filename of USEC Enrichment File
ThisPath1 = Range("A4")
FName1 = Range("B4")
Application.DisplayAlerts = False
Application.CutCopyMode = False
Set Oldworkbook11 = Workbooks.Open(FileName:=ThisPath1 & FName1)
End Sub
