Thread: Business Days
View Single Post
  #5   Report Post  
Posted to microsoft.public.excel.programming
Michael from Austin Michael from Austin is offline
external usenet poster
 
Posts: 28
Default Business Days

Worked!!!! Thanks so much.........
--
Regards,
Michael


"Dick Kusleika" wrote:

On Wed, 19 Mar 2008 10:03:01 -0700, Michael from Austin
wrote:

In need to be able to highlight a row if the date in that row is greater than
10 business days. I have already stored today as a variable called "today."


Go to Tools Addins and make sure "Analysis Toolpak - VBA" is checked. In
the VBE, go to Tools References and set a reference to atpvbaen.xls. Then
you can call the NETWORKDAYS function directly

Sub HighlightDays()

If Abs(networkdays(Sheet1.Range("A4").Value, Date)) 10 Then
Sheet1.Range("A4").EntireRow.Interior.Color = vbYellow
End If

End Sub
--
Dick Kusleika
Microsoft MVP-Excel
http://www.dailydoseofexcel.com