How do I set the font property of a cell / range to be the same as a
reference cell, without going through all the myriad of font properties and
setting individually

I have tried all manner of variations on the theme:

dim oFont as Font

set oFont = RefRange.Font
TargetCell.Font = oFont

Does not work and all manner of mucking around has not improved results

Thanks

Jack

Try this piece of code for copying format of cell A1 to B1:

Range("A1").Copy
Range("B1").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False

Regards,
Stefi


€žJack Clift€� ezt Ã*rta:

How do I set the font property of a cell / range to be the same as a
reference cell, without going through all the myriad of font properties and
setting individually

I have tried all manner of variations on the theme:

dim oFont as Font

set oFont = RefRange.Font
TargetCell.Font = oFont

Does not work and all manner of mucking around has not improved results

Thanks

Jack

You can't copy the font object in one go. So other than PasteSpecial formats
as suggested by Stefi, which could also copy up to 30 other non font related
cell properties, you're stuck with setting font attributes individually.

Regards,
Peter T

"Jack Clift" wrote in message
...
How do I set the font property of a cell / range to be the same as a
reference cell, without going through all the myriad of font properties
and
setting individually

I have tried all manner of variations on the theme:

dim oFont as Font

set oFont = RefRange.Font
TargetCell.Font = oFont

Does not work and all manner of mucking around has not improved results

Thanks

Jack

Thanks Stefi and Peter,

Can either of you provide an explanation as to why you cannot assign the
font object as per any other object? Just for my info?

Will use solution as suggested

Thanks for the timely reply

Regards

JC


"Peter T" wrote:

You can't copy the font object in one go. So other than PasteSpecial formats
as suggested by Stefi, which could also copy up to 30 other non font related
cell properties, you're stuck with setting font attributes individually.

Regards,
Peter T

"Jack Clift" wrote in message
...
How do I set the font property of a cell / range to be the same as a
reference cell, without going through all the myriad of font properties
and
setting individually

I have tried all manner of variations on the theme:

dim oFont as Font

set oFont = RefRange.Font
TargetCell.Font = oFont

Does not work and all manner of mucking around has not improved results

Thanks

Jack

Default property excepting, I can't think of any object type you can simply
assign to another object in the way you suggest, could you give an example
of what you had in mind.

Regards,
Peter T



"Jack Clift" wrote in message
...
Thanks Stefi and Peter,

Can either of you provide an explanation as to why you cannot assign the
font object as per any other object? Just for my info?

Will use solution as suggested

Thanks for the timely reply

Regards

JC


"Peter T" wrote:

You can't copy the font object in one go. So other than PasteSpecial
formats
as suggested by Stefi, which could also copy up to 30 other non font
related
cell properties, you're stuck with setting font attributes individually.

Regards,
Peter T

"Jack Clift" wrote in message
...
How do I set the font property of a cell / range to be the same as a
reference cell, without going through all the myriad of font
properties
and
setting individually

I have tried all manner of variations on the theme:

dim oFont as Font

set oFont = RefRange.Font
TargetCell.Font = oFont

Does not work and all manner of mucking around has not improved
results

Thanks

Jack