opening a file from file dialog box

Hi Lorenzo,

The last one you mentioned is the best.

It seems that my suggestion is not perfect as it brings only the opened Excel files into the dropdown list.

However, I've updated the last code you mentioned this way so that it closes the source file after complete the process.

Also, I've deleted this variable because it's unused!

Dim mwrbk As Variant

This is the updated code:

Sub CopyFromSource2()

 On Error Resume Next
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
 
 Dim strFileToOpen As String
 strFileToOpen = Application.GetOpenFilename _
 (Title:="Please choose a file to open", _
 FileFilter:="")
 
 Set targetedWB = Workbooks.Open(strFileToOpen)
 
 Dim LastRow As Long
 With ActiveSheet
 LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
 End With
 Range("A2:J" & LastRow).Select
 Selection.Copy
 Windows("RAD Analyzer.xlsm").Activate
 Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
 :=False, Transpose:=False
 
 targetedWB.Close SaveChanges:=False

 Range("A2").Select
 
 On Error GoTo 0
 Application.CutCopyMode = False
 Application.ScreenUpdating = True
 Application.DisplayAlerts = True

End Sub

Regards