error di run-time 438
proprietà o metodo non supportati dall'oggetto

il codice che ho scritto è:

Private Sub Workbook_Open()
Foglio1(Foglio1).ScrollArea = "a2:f66"
End Sub