workbooks.open error

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