Can someone point me in the right direction? I need to copy only the cell
borders and fill color from one cell to another. I do not want to copy the
contents of the cell, only borders and fill color.
--
TIA
Chuck M.

You can select the cell to copy, right-click and select copy, then select the
cell to paste to, right-click and select Paste Special then choose formats.

Or:
Range("B38").Select
Application.CutCopyMode = False
Selection.Copy
Range("B35").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

"Chuck M" wrote:

Can someone point me in the right direction? I need to copy only the cell
borders and fill color from one cell to another. I do not want to copy the
contents of the cell, only borders and fill color.
--
TIA
Chuck M.

Mike,

This is perfect. I needed the VBA solution (although I failed to mention
that in my original post).

Thanks and Happy New Year!
--

Chuck M.


"mikearelli" wrote:

You can select the cell to copy, right-click and select copy, then select the
cell to paste to, right-click and select Paste Special then choose formats.

Or:
Range("B38").Select
Application.CutCopyMode = False
Selection.Copy
Range("B35").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

"Chuck M" wrote:

Can someone point me in the right direction? I need to copy only the cell
borders and fill color from one cell to another. I do not want to copy the
contents of the cell, only borders and fill color.
--
TIA
Chuck M.

That's a clumsy 'Recorded Macro' version of the code. You may be able to
streamline it a bit. I love being able to record macros then manipulate the
clumsy code. It's a whole lot better than fumbling through the 'intuitive'
help screens Microsoft provides.

"Chuck M" wrote:

Mike,

This is perfect. I needed the VBA solution (although I failed to mention
that in my original post).

Thanks and Happy New Year!
--

Chuck M.


"mikearelli" wrote:

You can select the cell to copy, right-click and select copy, then select the
cell to paste to, right-click and select Paste Special then choose formats.

Or:
Range("B38").Select
Application.CutCopyMode = False
Selection.Copy
Range("B35").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

"Chuck M" wrote:

Can someone point me in the right direction? I need to copy only the cell
borders and fill color from one cell to another. I do not want to copy the
contents of the cell, only borders and fill color.
--
TIA
Chuck M.

Mike,

Is there any way I can do this, but excluding color?

I need a way to copy the borders and font format, but not the shading.

Any help appreciated!

"mikearelli" wrote:

You can select the cell to copy, right-click and select copy, then select the
cell to paste to, right-click and select Paste Special then choose formats.

Or:
Range("B38").Select
Application.CutCopyMode = False
Selection.Copy
Range("B35").Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

"Chuck M" wrote:

Can someone point me in the right direction? I need to copy only the cell
borders and fill color from one cell to another. I do not want to copy the
contents of the cell, only borders and fill color.
--
TIA
Chuck M.