VBA Error posting data using offset

[mlafrance1]

I'm trying to post data to another location in the same sheet using the Offset function but I keep getting "Runtime error 9, subscript out of range". The line that throws the error is the one that starts "Application.Worksheets . . .".

 Set rng = Range("J17:AA17")
    For Each myCell In rng
        If myCell.Address = "Skin" Then
        MsgBox myCell.Address & " is a skin cell"
        ElseIf myCell.Value <> "Skin" Then
        Application.Worksheets("Calculations!").Offset((myCell.Address), -16, 0) = Range("G18")
        End If
    Next myCell

Thank you for taking a moment to help me with this error.

 

[footoo]

myCell.Offset(-16, 0) = Range("G18").Value

 

[mlafrance1]

Thanks, Footoo. I really appreciate the help. I knew it had to be easy.