Hello,
can you please help me clean up below code. I'm getting a RunTime error 424 when it hits "Set Dpndnt" code
Thanks much...
can you please help me clean up below code. I'm getting a RunTime error 424 when it hits "Set Dpndnt" code
Code:
Sub Calculate_Actuals()
Dim i As Integer
Dim rng As Range
Dim Dpndnt As Range
Dim DeptNo As String
For i = 145 To 161
Set rng = Range("L" & i)
Set Dpndnt = Left(Range("L" & i), 4)
If Dpndnt.Value = "=Sum" Then
GoTo CellSkip
Else
rng.FormulaR1C1 = "omitted intentionally "
' rng.Value = rng.Value
End If
CellSkip:
Next i
End Sub
Thanks much...