Unfortunately, I've added the VBA Toolpak in the addins already. I'm trying
to select the atpvbaen.xls in the references now, but everytime I hit OK I'm
getting that 400 error. Could this be specific to some security settings
that my company has in place?

Also, I'm not sure I understand the bigmac sub you wrote.

"Gary''s Student" wrote:

There are two things you need to do, not just one:


In addition to Tools Addins... and checking the Toolpak VBA

You must (in the VBA window) pull-down:
Tools References and check the atpvbaen.xls box as well.


Once both have been done, then:


Sub bigmac()
MsgBox (workday(12, 12))
End Sub

will work. No need to preface the WORKDAY() function with anything.

Any more problems == update the post. Otherwise, have a good day!!

--
Gary's Student


"OCONUS" wrote:

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?