If the Offset cell is already bold, and it should no longer be bold, do you
wish to reset it? If so, just an idea...

Sub Boldmaker()
Dim Cell As Range
For Each Cell In Selection
Cell.Offset(0, 1).Font.Bold = StrComp(Cell.Value, "Total
Transactions", vbTextCompare) = 0
Next Cell
End Sub

--
Dana DeLouis
Using Windows XP & Office XP
= = = = = = = = = = = = = = = = =


"ksnapp " wrote in message
...
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/