Thread: copying a color from one cell to another

I have this code that I want to use to copy a color:

Sub color_switcher(start_cell As Cells, end_cell As Cells)

Dim color As Long

color = start_cell.Interior.color

end_cell.Interior.color = color

End Sub

and here is my test sub:

Sub test_func()

Call color_switcher(Cells(1, 1), Cells(2, 1))


End Sub

Im getting the error:

user defined type not defined

what am I doing wrong?

thanks, in advance.

thanks for the quick reply.

I tried it with range but got the

object _global failed error

Try replacing

Sub color_switcher(start_cell As Cells, end_cell As Cells)

with

Sub color_switcher(start_cell, end_cell)

and to finish off the switch?

Sub color_switcher(start_cell, end_cell)

Dim color1 As Long, color2 As Long

color1 = start_cell.Interior.color
color2 = end_cell.Interior.color

start_cell.Interior.color = color2
end_cell.Interior.color = color1

End Sub