With Range("A1").End(xlDown)
.Font.Bold = True
.NumberFormat = "$#,##0.00"
End With

--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"jln via OfficeKB.com" <u25956@uwe wrote in message
news:68ef7d31a1e69@uwe...
Im trying to add formatting that goes to the last row and makes it bold
and
formats the numbers to currency. Help

--
Message posted via http://www.officekb.com