Sub TestThis()
Dim fPath As String, wb2 As Workbook, ws As Worksheet, rng As Range
fPath = "C:\FullPath\ToFile\wb2Name.xlsx"
Set wb2 = Workbooks.Open(fPath) [I][COLOR=#006400]'open and set the workbook[/COLOR][/I]
Set ws = wb2.Sheets("Sheet1") [COLOR=#006400][I] 'set the sheet[/I][/COLOR]
Set rng = ws.UsedRange [COLOR=#006400][I]'set the range[/I][/COLOR]
[I][COLOR=#006400] 'or if data starts in row 2, is in columns A to J and column A used to determine last row[/COLOR][/I]
Set rng = ws.Range("A2", ws.Range("A" & Rows.Count).End(xlUp)).Resize(, 10)
[COLOR=#006400][I] 'etc[/I][/COLOR]
MsgBox rng.Address
wb2.Close False [I][COLOR=#006400]'close workbook without saving it[/COLOR][/I]
End Sub