BUSDAYNEXT

BUSDAYNEXT(dtDateValue)
Returns the next business day if the given date is not a business day.

REMARKS
* You can use the built-in WORKDAY.INTL function to return the date serial number that is a given number of working days before or after a date.
* You can use the user defined BUSDAYPREVIOUS function to
* You can use the user defined BUSDAYMONTHSTART function to
* You can use the user defined BUSDAYMONTHEND function to
* You can use the user defined BUSDAYYEARSTART function to
* You can use the user defined BUSDAYYEAREND function to
* You can use the user defined BUSDAYNTH function to
* You can use the user defined BUSDAYSADD function to
* You can use the user defined BUSDAYDIFF function to
Public Function BUSDAYNEXT( _

Public Function BUSDAYNEXT( _ 
         ByVal dtDateValue As Date) _ 
         As Date 

   BUSDAYNEXT = Application.WorksheetFunction.WorkDay_Intl(dtDateValue, 1) 
End Function 

For instructions on how to add this function to a workbook refer to the page under Inserting Functions