Colorvalue of cell Z1
 

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.

Colorvalue of cell Z1
 

Nevermind I fixed it.

thanx
-----Original Message-----
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.
.

Colorvalue of cell Z1
 

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

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com