I am not sure why you need to write a macro, this seems to be
overcomplicating the process

In a cell lets say F3 create data,validation, list from somewhere else
in the spreadsheet, this will be your dropdownlist

In cell A1 goto format, conditional formating, choose formula is and
type
=isnumber(search($F$3,A1)) and choose a colour to change the cells to
highlight them


Then just copy this format by copy, paste special, formats to the other
cells a1:d4

Regards

Dav


--
Dav
------------------------------------------------------------------------
Dav's Profile: http://www.excelforum.com/member.php...o&userid=27107
View this thread: http://www.excelforum.com/showthread...hreadid=573595