error "9"

Hola he introducido este macro en un modulo para calcular el valor maximo
entre la celda A1 y A10 , pero me sale un mensaje de error "9" en tiempo de
ejecucion
subindice fuera de intervalo. Alguien podria decirme que puedo hacer, el
macro es el siguiente :

Sub UseFunction()
Dim myRange As Range
Set myRange = Worksheets("Sheet1").Range("A1:A10")
answer = Application.WorksheetFunction.Max(myRange)
MsgBox answer
End Sub