What's up, Doc?

This happens to me often enough that I wrote some code to handle it.
Highlight the range of data, then run this code. Enjoy the weekend!

Sub Selected_Range_Format()
Dim rCell As Range
Dim TrueVal As Variant

For Each rCell In Selection.Cells
TrueVal = Trim(rCell.Value)
rCell.ClearContents
rCell.NumberFormat = "$#,##0.00"
rCell.Value = TrueVal
Next rCell
End Sub