workbooks.open error

**vban00b8** · 04-26-2012, 02:35 PM

Hi I am trying to do something simple but I am getting an error:

"Invalid Outside Procedure"

It highlights the path of my file:

Dim excelApp As Excel.Application
Dim wr1 As Excel.Range
Dim SigString As String
Dim Signature As String
Dim Sheet1 As Excel.Worksheet


    Workbooks.Open Filename:="d:\test.xls", UpdateLinks:=0 _
        , ReadOnly:=True, Notify:=False
    
 Windows("test.xls").Activate
    Range("A1").Select
    Selection.Copy
    Windows("test.xls").Activate
    Range("C1").Select
    
End


Application.Quit

**Alf** · 04-26-2012, 03:49 PM

Not really sure what you are trying to do but perhaps a macro like this could be of help?

Option Explicit

Sub open_file()
    Workbooks.Open Filename:="d:\test.xls", UpdateLinks:=0 _
        , ReadOnly:=True, Notify:=False
        
 Range("Sheet1!A1").Copy
 Range("Sheet2!C1").PasteSpecial Paste:=xlPasteValues
 
 Application.CutCopyMode = False
 
End Sub

Alf