ksnapp

missing . between cell & value also

If statements are case sensitive


try


If lcase(Cell.value) = "total transactions"
ActiveCell.Offset(0, 1).Font.Bold = True
end i

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