the code at the bottom was written for me. It worked in a previous sample sheet but I can't get it to work real time. If you open the sheet, you'll see that it doesn't work. But it DID work on a different sheet. I'm baffled. Please help.
![]()
Sub Test() Dim MyArea For Each MyArea In Columns(12).SpecialCells(2).Areas MyArea.Offset(-1).Resize(1).Value = Application.Max(MyArea) MyArea.Offset(-1).Resize(1).Font.Bold = True Next MyArea End Sub
Bookmarks