Run Time error 9 Subscript out of range

Hi

I get Run Time error 9 Subscript out of range, I cannot see where the error is
Please may I ask for some advice?

Much appreciated!

Dim myCell As Range
Set myCell = Application.InputBox( _
    prompt:="Select a cell", Type:=8)
    Worksheets("Sheet1").Range.Formula = _
        "=1+1"