VBA for If statement

[tlindeman]

Could you please supply the following VBA: I need code where the date in Cell A4>today then paste the following formula in A5, else " ",

VLOOKUP($A$6,'R:\ACCT\FINREPORTING\FS2011\Ratios\CAPX Ratios\[Indebtedness.xlsx]Schedule_Jun'!$B$4:$F$64,5,FALSE

Thank You
Tony

 

[MrKowz]

Something like this?

If Range("A4").Value > Date Then
    Range("A5").Formula = "=VLOOKUP($A$6,'R:\ACCT\FINREPORTING\FS2011\Ratios\CAPX Ratios\[Indebtedness.xlsx]Schedule_Jun'!$B$4:$F$64,5,FALSE)"
Else
    Range("A5").ClearContents
End If

 

[tlindeman]

Perfect,
Thank You

 

[MrKowz]

Perfect,
Thank You

Glad it works. Thank you for the feedback.