Error macro goalseek

[Donca]

Hola Todos;

Soy algo nuevo con el tema de los macros en VBA, estoy tratando de hacer uno que aplique el goal seek en cada una de las celdas en un rango determinado.

Lo que he creado hasta el momento es lo siguiente:

Sub GoalS()

For Each cell In Range("c133:n133")

If cell <> 0 Then

cell.Select

Selection.GoalSeek , Goal:=0, ChangingCell:=Selection.Offset(RowOffset:=-95).Select

End If

Next cell

End Sub

Pero me genera el siguiente error:

Run-time error '1004:

Application-defined or object-defined error

Quisiera su ayuda para detectar el error.

Muchas gracias