I'm attempting to insert a column to the left of a dynamic cell once the value reaches an amount that is = to a specified cell. I am creating a template for future loans of similiar structure. The reason for doing this is that it is a loan structured with two tier interest and once the value reaches a specified amount, the loan starts paying a differing interest rate. To reach this cutoff value, an additional payment is needed before the cutoff value is reached. I have named the range with the total loan amount "Values" I am receiving a run-time error '424' message that states "object required"
Can anyone give me some adivce on how to do this?
Sub Add_Column_if_reference()
'Insert colum to the left when final draw balance reached'
For Each cell In Range("Values")
If cell.Value = Range("D13").Value Then
Rng.Offset(0, -1).EntireColumn.Insert Shift:=xlRight ----> RECEIVING ERROR HERE
End If
Next
Application.ScreenUpdating = True
End Sub
Bookmarks