Hi all,
I can't get my head around why this simple piece of code won't work in
release, but does in step-by-step debugging. This code is part of a
userform with two calendars on it.
Ideas anyone?
p.s. I'm guessing the Analysis Toolpack function "networkdays" is the
cause, but why?
Private Sub CalendarEnd_Click()
Dim sDay As Date
Dim eDay As Date
Dim nwDays As Integer
On Error GoTo Skip
sDay = CalendarStart.Value
eDay = CalendarEnd.Value
nwDays = networkdays(sDay, eDay)
If nwDays < 1 Then GoTo Skip
UserForm2.TextBox2.Value = nwDays
Exit Sub
Bookmarks