Perhaps this:
Option Explicit
Sub CopyRC()
Dim wb As Workbook
Dim strDrive As String
Dim strFolder As String
Dim strFilename As String
Dim rngSrc As Range
strDrive = "C:"
'strFolder = "F:\Test\Test"
ChDrive strDrive
'ChDir strFolder
strFilename = Application.GetOpenFilename("Excel Files (*.xl*), *.xl*")
If strFilename = "False" Then Exit Sub ' user pressed Cancel
Set wb = Workbooks.Open(strFilename)
' code to copy and paste to other workbook
Set rngSrc = Application.InputBox("Please select cells to copy:", Type:=8)
If Not rngSrc Is Nothing Then rngSrc.Copy
wb.Close SaveChanges:=False
Range("D2").Select
ActiveSheet.Paste
End Sub
Bookmarks