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?

Steve,
You have to work with the .characters property of the range, similar to
MID( ).
Something like this :

dim PriceStr as string
const Msg as string=""Additional Delivery Fee of $"
pricestr=Worksheets("Calculations").Range("Partial FreightPrice").Text
With Worksheets(QuoteForm).Range("A" & DataRow)
.Value = Msg & pricestr & " / Delivery if customer request additional
deliveries"
.Characters(len(msg)+1,len(pricestr).font.bold=tru e
end with

NickHK

"steve" ...
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?

very nice....thank you!

"NickHK" wrote:

Steve,
You have to work with the .characters property of the range, similar to
MID( ).
Something like this :

dim PriceStr as string
const Msg as string=""Additional Delivery Fee of $"
pricestr=Worksheets("Calculations").Range("Partial FreightPrice").Text
With Worksheets(QuoteForm).Range("A" & DataRow)
.Value = Msg & pricestr & " / Delivery if customer request additional
deliveries"
.Characters(len(msg)+1,len(pricestr).font.bold=tru e
end with

NickHK

"steve" ...
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?