Hello David -

Thank you so much!!!
--
Sandy


"davidm" wrote:


Sub CheckIt()

For each c in Range("g:g")
If c.interior.color= vbgreen then
MsgBox "Error-Greenland"
If c.interior.color=vbWhite then
c.offset(1,0).interior.color=vbwhite
If c.SpecialCells(xlCellTypeFormulas) then
Msgbox "Error-Formula!"
If c.SpecialCells(xlCellTypeFormulas,xlErrors) or _
c.SpecialCells(xlCellTypeFormulas,xlLogical)then
If c.offset(1,0).SpecialCells(xlCellTypeFormulas,xlTe xt) =false or
SpecialCells(xlCellTypeConstants,xlText)=False
MsgBox "Text required"
End if
End if
End if
End if
Next

End Sub


--
davidm
------------------------------------------------------------------------
davidm's Profile: http://www.excelforum.com/member.php...o&userid=20645
View this thread: http://www.excelforum.com/showthread...hreadid=400669