Visual Basic para Aplicaciones - Esta rutina me da error!!!!!!!!.....

Pues no se por que carajo me salta error en esta rutina. Yo lo veo todo bien:


Sub saldo_por_obras()
For i = 1 To 8
codigo_actual = Worksheets("por meses").Range("A6").Cells(i, 0)
If codigo_actual = Worksheets("por obra").Range("A5").Cells(i - 1, 0).Value Then
GoTo Final:
Else
Worksheets("por obra").Range("B5").Cells(i, 0).Value = "=SUMAR.SI('por meses'!A6:A13;codigo_actual;'por meses'!B6:B13)"
Final:
End If
Next
End Sub

No se q te dice tu error, ni en q linea lo señala pero
codigo_actual = Worksheets("por meses").Range("A6").Cells(i, 0)
no has puesto .value
Igual es eso, no?
Por probar...