Macro Excel VBA

[9gio9]

Salve, ho una macro vba in Excel che prende dei dati da un altro file Excel (Book1.xls) all'apertura.
E' la seguente:

Sub GetOK()
 Application.ScreenUpdating = False
 Application.DisplayAlerts = False
 Workbooks.Open Filename:="C:\Users\G\Desktop\Book1.xls", ReadOnly:=False
 Workbooks("Book1.xls").Sheets("Sheet1").Activate
 dato = ActiveSheet.Cells(8, 8)
 Workbooks("file.xls").Activate
 ActiveSheet.Cells(1, 1) = dato
 Windows("Book1.xls").Close
End Sub

Se la eseguo funziona ma non funziona più se la inserisco in ThisWorkbook nella sub (che dovrebbe farla partire un automatico all'apertura del file):

Sub Workbook_open()
...
End Sub

Come mai?