If that's what you wanted it could be improved a little bit.
Don't forget the periods before each item in the with.

with range(cells(activecell.row,0),cells(activecell.row ,7)).font
.Underline = True
.Bold = True
end with
with ActiveCell
..Offset(, 0) = "Practice"
..Offset(, 1) = "Task"
..Offset(, 2) = "Expnd Type"
..Offset(, 3) = "Item Date"
..Offset(, 4) = "Supplier"
..Offset(, 5) = "Burden Cost"
..Offset(, 6) = "Comment"
..Offset(, 7) = "Expnd Org"
end with

--
Don Guillett
SalesAid Software

"carlab68" wrote in message
...

Thanks anonymous! I copied and pasted your macro and it worked
perfectly! YIPPEE! THANKS!!


---
~~ Message posted from http://www.ExcelForum.com/