I use the following code to insert a line of text into a quote sheet:

Worksheets(QuoteForm).Range("A" & DataRow).Value = "Additional Delivery Fee
of $" & Worksheets("Calculations").Range("PartialFreightPr ice").Text & " /
Delivery if customer request additional deliveries"

Is there a way I can make the
Worksheets("Calculations").Range("PartialFreightPr ice").Text BOLD?