セル範囲指定方法 - vbfa @ ウィキ

セルを範囲していします。

With ThisWorkbook
    Workbooks(.Name).Worksheets(1).Range(.Cell(row ,column), .Cell(row, column))
End With
または
Workbooks(ThisWorkbook.Name).Worksheets(1).Range("A1:B5")