I have this macro set up to find all the lower case street names and upper case them, I want to also have the macro bold whatever it upper cases and copy it to another column. This is what I have that works so far.

Sub Upper_Case1()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim Cell As Range
On Error Resume Next 'In case no cells in selection
For Each Cell In Intersect(Selection, _
Selection.SpecialCells(xlConstants, xlTextValues))
Cell.Formula = UCase(Cell.Formula)
End With
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Selection.Copy
Range("L").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

I fhave 2 different macros but I cannot seem to get either one to bold and change the color:

range("h").select
With selection.font
.name = "tahoma"
.fontstyle = "bold"
.size = 10
.colorindex = 3
or

cell.formula = ucase(cell.formula)
with cell.font
.fontstyle = "bold"
end with
with cell.characters(start:=i + 1).font
.fontstyle = "regular"
end with

Also can anyone suggest a macro that will do all of this using the macro I already have?

Thanks in advance, I am killing myself over here.
Rheia