Ok this is a tricky one. There is a function called WEEKNUM which is in the Analysis Toolpak add-in (Choose Tools>Add-ins to activate it). The problem is, Conditional Formatting does not recognize WEEKNUM (at least in Excel 2000) so insert a column (B) next to your dates and enter =WEEKNUM(A1)=WEEKNUM(Today()) This will return TRUE or FALSE. Copy down as far as needed. Now select the dates and Choose Formatting>Conditional Formatting. Select the formula is option and Enter =B1=TRUE. Choose a format and click OK. Note:You can hide Column B
HTH This message was edited by lenze on 2002-11-01 15:56
Yes, it can be done with VBA. I'll see what I can come up with. However, you can add this code in the ThisWorkBook module which will activate the add-in automatically.
Private Sub Workbook_Open()
If Application.AddIns("Analysis ToolPak").Installed = False Then Applications.AddIns("Analysis ToolPak").Installed = True
End Sub This message was edited by lenze on 2002-11-01 16:04 This message was edited by lenze on 2002-11-01 16:04