In this code:

[vba]If Sheets("Input + Wksheet").Range("B10").Value = 1 And Sheets("Input + Wksheet").Range("G6").Value > 65 Then

DirectBillOnlyIndemnity2Off
With Sheets("Direct Bill ONLY")
.Range("D11").Value = "X"
.Range("E24").Formula = "=if(MEDCVG=1,VLOOKUP(YearsOfService,Indemnity,IF(Age<=65,7,14),FALSE), 0)/12"
.Range("F24").Formula = "=IF(Age<65,Indemnity!H42/12,Indemnity!O42/12)-E24"

'DirectBillOnlyIndemnity3On
'DirectBillOnlyIndemnity4On

End With

With Sheets("Direct Bill with RIA")
.Range("D11").Value = "X"
.Range("E20").Formula = "=if(MEDCVG=1,VLOOKUP(YearsOfService,Indemnity,IF(Age<=65,7,14),FALSE), 0)/12"
.Range("F20").Formula = "=IF(Age<65,Indemnity!H42/12,Indemnity!O42/12)-E20"


End With

End If[/vba]

The line in red (the sub being called) does not execute. However if you go to the sub and either press F8 and step through it or execute it with F5 it works fine. Ideas?