Búsqueda de objetivo con macro

Tengo el siguiente código VBA que encontré en un foro y el cual hice unas cuantas modificaciones para adaptarlo a mis necesidades, estaba funcionando perfecto hasta este punto:

Sub gskTest()

Dim i As Long
For i = 6 To Cells(Rows.Count, 1).End(xlUp).Row
Cells(i, 24).GoalSeek Cells(i, 25).Value, Cells(i, 13)
Next i

End Sub

Pero como esta macro voy a usarla en distintas hojas con un orden de columnas distintas le hice unas cuantas adecuaciones para que el numero de columnas sea modificable sin tener ir cada vez al código:

Sub ShadowSeekIt()
Dim i As Long
Dim valC As Long
Dim SetC As Long
Dim vEsp As Long
Dim changC As Long
If MsgBox("You're going to start a GoalSeek in Shadow Payroll. Continue?", vbInformation + vbYesNo, "GoalSeek in Shadow Payroll") = vbNo Then
Exit Sub
Else
valC = InputBox("Indicate the column number for reference cells to validate", "GoalSeek in Shadow Payroll", 1)
SetC = InputBox("Indicate the column number of the 'Set Cells' ", "GoalSeek in Shadow Payroll", 1)
vEsp = InputBox("Indicate the column number of the 'Goal value' ", "GoalSeek in Shadow Payroll", 1)
changC = InputBox("Indicate the column number of the 'changing cells' ", "GoalSeek in Shadow Payroll", 1)
' myValue = InputBox("Give me some input", "Hi", 1)
For i = 6 To Cells(Rows.Count, valC).End(xlUp).Row
Cells(i, SetC).GoalSeek Cells(i, vEsp).Value, Cells(i, changC)
Next i
End If

End Sub

Pero ahora ya no me corre, me sale el siguiente error:

"Reference is not valid"