I select a rang in a column if there is a cell that says "tota
transactions" I want it to make the cell to the right bold


Sub Boldmaker()
For Each CELL In Selection
If Cellvalue = "Total Transactions" Then
ActiveCell.Offset(0, 1).Select
ActiveCell.Font.Bold = True
End If
Next CELL

End Su

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