Colorvalue of cell Z1

[Todd Huttenstine]

here is the code:
If Application.CountIf(.Range("z1:z26"), "Name") > 0 Then
Range("area1").Interior.colorindex = 3
Else
Range("area1").Interior.colorindex = 2
End If

I would like for the code to say...
If Application.CountIf(.Range("z1:z26"), "Name") > 0 Then
Range("area1").Interior.colorindex = "the color
value of cell Z1"

I want it to make the color of the cells specified in
range "name" the color of whatever color the cell of Z1 is.

 

[Todd Huttenstine]

Nevermind I fixed it.

thanx

 

[mudraker]

Range("area1").Interior.colorindex = Range("z1").Interior.colorinde