I need to programmatically reference a cell in a different workbook
(Excel file). Once I reference that cell, I need to determine the
color and then change a cell in my current workbook to that exact
color. Example:

C:\ExcelFile1.xls
Column C
Row 33
Color is Blue

H:\Project\MasterPlan.xls
Column H
Row 40
Color needs to be Blue as it is in above workbook\cell.

Any thoughts? THANKS

Tammy

Will the workbooks be open? Assuming so


Workbooks("MasterPlan.xls").Worksheets("Sheet1").R ange("H40").Interior.Color
index = _

Workbooks("ExcelFile.xls").Worksheets("Sheet1").Ra nge("C33").Interior.Colori
ndex


--

HTH

RP
(remove nothere from the email address if mailing direct)


"FireGeek822" wrote in message
oups.com...
I need to programmatically reference a cell in a different workbook
(Excel file). Once I reference that cell, I need to determine the
color and then change a cell in my current workbook to that exact
color. Example:

C:\ExcelFile1.xls
Column C
Row 33
Color is Blue

H:\Project\MasterPlan.xls
Column H
Row 40
Color needs to be Blue as it is in above workbook\cell.

Any thoughts? THANKS

Tammy

Thanks Bob. My first try with this I used RGB( ) and didn't realize
the color index is a long number and doesn't use the traditional RGB
numbers.

Now I need to try to restrict all users of both workbooks to use only 6
specific colors.

I appreciate the help Bob, Thanks Again!!!

Tammy