Hi Bob,

I was running through this conversation with KEn but still cant get to run
the networkdays function.

ElseIf LCase(Left(cbma, 3)) = "rdd" Then
RDDdate = TextToDate(.Range("R" & indx).Value)
diffdate = NetworkDays(curdate, RDDdate)

If diffdate RDDdur Then
.Range(sdate_col & indx).Value = "Forward RDD"
.Range(stocks_col & indx).Value = "No Action"
Else
.Range(sdate_col & indx).Value = ""
.Range(stocks_col & indx).Value = ""
End If
End If

Let me know any remedies you have in mind. Btw, i have added in Analysis
Tool-Pak VBA and used atpvbaen.xls as reference as well.

Thanks

Lyndon

"Ken Hudson" wrote:

As usual, you have the answer.
Thanks Bob.
--
Ken Hudson


"Bob Phillips" wrote:

The ATP has been integrated in Excel 2007, so try

If WorksheetFunction.NetWorkdays(Range("F38"), Range("G38"),
ThisWorkbook.Sheets(3).Range("A1:A" & HolCount)) 14 Then
ActiveSheet.CheckBoxes("Check box 27").Value = xlOn
Else
ActiveSheet.CheckBoxes("Check box 26").Value = xlOn
End If


--
__________________________________
HTH

Bob

"Ken Hudson" wrote in message
...
I have the following code that I used in an Excel 2003 macro.

If NetWorkdays(Range("F38"), Range("G38"),
ThisWorkbook.Sheets(3).Range("A1:A" & HolCount)) 14 Then
ActiveSheet.CheckBoxes("Check box 27").Value = xlOn
Else
ActiveSheet.CheckBoxes("Check box 26").Value = xlOn
End If

I have converted the macro to Excel 2007 and, when I invoke the macro, I
get
a compile error - sub or function not defined.
I have Analysis Tool-Pak VBA added in.
I have atpvbaen as a reference as well as Excel and Office Object
Librairies.
What am I missing that is causing this problem?
--
Ken Hudson