Min

He intentado con este macro que sale en la pagina de ayuda
y no ocurre nada alguna solucion? :
Sub UseFunction()
Dim myRange As Range
Set myRange = Worksheets("Sheet1").Range("A1:C10")
answer = Application.WorksheetFunction.Min(myRange)
MsgBox answer
End Sub