y won't this work??
 

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

y won't this work??
 

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

y won't this work??
 

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

y won't this work??
 

"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/

y won't this work??
 

Try this correction. You don't have to select a cell to act upon it.

'Option Compare Text

Sub Boldmaker()
Dim cel as Range
For Each cel In Selection
If cel.Value = "Total Transactions" Then
cel.Offset(0, 1).Font.Bold = True
End If
Next cel
End Sub

You could add the Option Compare Text line at top of Module to make it
case-insensitive if desired.

Gord Dibben Excel MVP

On Wed, 3 Mar 2004 20:44:44 -0600, 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/

y won't this work??
 

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/