This is the code I'm trying to use:
Function ESD(payment_date, payment_type)
If payment_type = "ACH Deposit" Then
ESD = [atpvbaen.xls].WORKDAY(payment_date, 6)
Else
If payment_type = "Credit Card" Then
ESD = [atpvbaen.xls].WORKDAY(payment_date, 9)
Else
If payment_type = Application.Or("Check (Secured)", "Money
Order") Then
ESD = [atpvbaen.xls].WORKDAY(payment_date, 13)
Else
If payment_type = "Check (unsecured)" Then
ESD = [atpvbaen.xls].WORKDAY(payment_date, 20)
Else
End If
End If
End If
End If
End Function
The problem is when I select the aptvbaen.xls box and try to exit the
references screen, I'm getting and error message that says nothing but "400".

Thanks again for all your help
"Gary''s Student" wrote:

If you post some of you code, I can look at it tomorrow (Saturday)
--
Gary''s Student


"OCONUS" wrote:

Figured out that I didn't have the Add-in for VBA. Sorry about that. But
now after I select atpvbaen.xls in the references is giving me an error
pop-up that says nothing but "400". Any suggestions?

"OCONUS" wrote:

Thanks for the link, but the site tells me I need to select atpvbaen.xls in
my available references in VBA. Unfortunately, thats not there to select.

"Gary''s Student" wrote:

You are trying to use the Analysis ToolPak in VBA.

See:

http://www.cpearson.com/excel/ATP.htm

for complete instructions
--
Gary's Student


"OCONUS" wrote:

New to creating custom functions. I'm trying to add workday, which is an
add-in, to a function I'm creating but "Application.Workday(a,b)" isn't
working. Any suggestions?