If you are running this from Excel, you can simplify Lucas' code even further:
[VBA]Dim wb As Workbook[/VBA]
Dim FName As String
FName = "f:\AAA\Excel2.xls"
Set wb = Workbooks.Open(FName)
wb.Sheets(1).Range("A1:B3").copy
If you are running this from Excel, you can simplify Lucas' code even further:
[VBA]Dim wb As Workbook[/VBA]
Dim FName As String
FName = "f:\AAA\Excel2.xls"
Set wb = Workbooks.Open(FName)
wb.Sheets(1).Range("A1:B3").copy
Posting Permissions
Reply With Quote