You are very welcome. Glad it worked out for you.
Just as an aside, you can make a slight adjustment to the added part. Very rarely do you ever have to select an object.
Code:
With ActiveCell.EntireRow
.Font.Bold = True
.NumberFormat = "0.00"
.Style = "Comma"
End With