"Cellvalue s/b CELL.Value ("CELL <period Value

--
Regards;
Rob
------------------------------------------------------------------------
"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/