How about:

Sub Boldmaker()
For Each CELL In Selection
with CELL
If lcase(.value) = lcase("Total Transactions") Then
.offset(0,1).Font.Bold = True
end if
end with
Next CELL

(I added lcase() just in case you had mixed cases. <vbg)

"ksnapp <" wrote:

I select a rang in a column if there is a cell that says "total
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 Sub

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

--

Dave Peterson