Sub CopyColor()
Range("B2").Select
With Selection.Interior
.Pattern = Range("A2").Interior.Pattern
.Color = Range("A2").Interior.Color
End With
End Sub
Functions cannot change formatting of a cell so it must be a macro.
Sub colorit()
ActiveCell.Interior.ColorIndex = _
Range("A1").Interior.ColorIndex
End Sub
Or use the Format PaintBrush
Gord Dibben MS Excel MVP
Ask a Question
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.