I've written some code to read a range of cells from an excel file, as below.
Now I need to paste this into the file in which the macro is running.
How to I set the active workbook/sheet to this?
excelFileSource = "C:\\Documents and Settings\\file1.xls"
On Error Resume Next
Set excelApplication = GetObject(, "Excel.Application")
If Err = 429 Then
Set excelApplication = CreateObject("Excel.Application")
Set excelWorkbookSource = excelApplication.Workbooks.Open(excelFileSource)
' select the range to copy