Solved: Insert formula error.

[Marcster]

Hello people,

When I run the following:
[VBA]Sub InsertFormulas
Dim FinalRow As Integer
FinalRow = Cells(65536, 1).End(xlUp).Row
Range("I2:I" & FinalRow).Formula = "=IF(C2='','No Date',TODAY()-C2)"
End Sub[/VBA]
It displays an error:
Run time error: '1004':
Application-defined or object-defined error

Any ideas why?. Any fixes?.

I've also tried:
[VBA]
Sub InsertFormulas2()

Dim FinalRow As Integer
FinalRow = Cells(65536, 1).End(xlUp).Row

With Range("I2:I" & FinalRow)
.FormulaR1C1 = "=IF(C2='','No Date',TODAY()-C2)"
.Value = .Value
End With
End Sub[/VBA]
But that shows same error.

Column C contains dates.
If column C is blank then column I should say 'No Date'
Else it should display how many days from today.

Thanks,
Marcster.

[Bob Phillips]

[vba]
Sub InsertFormulas()
Dim FinalRow As Integer
FinalRow = Cells(65536, 1).End(xlUp).Row
Range("I2:I" & FinalRow).Formula = "=IF(C2="""",""No Date"",TODAY()-C2)"
End Sub
[/vba]

[Marcster]

[vba]
Sub InsertFormulas()
Dim FinalRow As Integer
FinalRow = Cells(65536, 1).End(xlUp).Row
Range("I2:I" & FinalRow).Formula = "=IF(C2="""",""No Date"",TODAY()-C2)"
End Sub
[/vba]

Thanks again XLD

Marcster.