Copy Background Color Only

Hi All,

Is there a VBA code to let you select a range (that have hidden rows or columns) on one workbook, copy only the background colors from the visible cells, then let you select a cell on other workbook or worksheet to paste the background colors (not other formatting). The result should be, the destination selected showing the background colors from the visible cells of the original selection.

Note: The destination does not have hidden rows and columns, so that is not an additional issue.

Thanks in advance
-Raul

Thank you Keebellah,

This is what I have so far and it works to paste the visible cells only, but it paste all the formatting. Also, it only works by selecting and pasting one column at a time. Is there a way to modify, so it let you select data across multiple columns and paste only the background color ?

Thanks,
Raulito

Opps forgot the code Keebellah,

This is what I have so far and it works to paste the visible cells only, but it paste all the formatting. Also, it only works by selecting and pasting one column at a time. Is there a way to modify, so it let you select data across multiple columns and paste only the background color ?

Sub Copyvisible_ColumnsFormat()
Set from = Selection.SpecialCells(xlCellTypeVisible)
Set too = Application.InputBox("Select range to copy selected cells to", Type:=8)
For Each Cell In from
Cell.Copy
For Each thing In too
If thing.EntireRow.RowHeight > 0 Then
thing.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Set too = thing.Offset(1).Resize(too.Rows.Count)
Exit For
End If
Next
Next
End Sub

Thanks,
Raulito