<div>
Hi, 
 
pls try 

<pre><code class="code-10 nolinks" id="code-20-42086160-1">Sub macro()
Set Rng = Range(Selection, Selection.End(xlDown))
bfound = False
For Each c In Rng
 If c.Interior.Color = RGB(235, 219, 218) Then
 bfound = True
 Exit For
 End If
Next
If Not bfound Then MsgBox &quot;None of the cells has the required color&quot;
End Sub
</code></pre>
</div>

<div>
if you want to se the select cells then 

<pre><code class="code-10 nolinks" id="code-20-42086170-1">Sub Macro()
Range(Selection, Selection.End(xlDown)).Select
bfound = False
For Each c In Selection
 If c.Interior.Color = RGB(235, 219, 218) Then
 bfound = True
 Exit For
 End If
Next
If Not bfound Then MsgBox &quot;None of the selected cells has the required color&quot;
End Sub
</code></pre>
</div>

<div>
Hi Rgonzo, thank you very much for your swift help. Will test the solutions as soon as possible. 
 
Regards, Andreas
</div>

<div>
Great, this did the trick, thank you very much for your professional help. Regards, Andreas
</div>

<div>
<div class="content wysiwyg-content">
Dear Experts, 
 
for the selected cells (see below) I would like to check, whether none of the selected cells have a RGB fill of 235, 219, 218. 
 
If none of the selected cells contain this specific cell fill 'RGB 235, 219, 218', a msgbox has to tell the user that this is the case, else do nothing. 
 

<pre><code class="code-1 nolinks" id="code-10-29015128-1">Range(Selection, Selection.End(xlDown)).Select
</code></pre>
 
Help is much appreciated. 
 
Thank you very much in advance. 
 
Regards, Andreas
</div>
</div>

Dear Experts, 

for the selected cells (see below) I would like to check, whether none of the selected cells have a RGB fill of 235, 219, 218. 

If none of the selected cells contain this specific cell fill 'RGB 235, 219, 218', a msgbox has to tell the user that this is the case, else do nothing.

(CODE)

Help is much appreciated. 

Thank you very much in advance. 

Regards, Andreas

Check whether selected cells contain a certain fill color

Visual Basic for Applications (VBA) enables building user-defined functions (UDFs), automating processes and accessing Windows API and other low-level functionality through dynamic-link libraries (DLLs). VBA is closely related to Visual Basic and uses the Visual Basic Runtime Library, but it can normally only run code within a host application rather than as a standalone program. It can, however, be used to control one application from another via OLE Automation. VBA is built into most Microsoft Office applications.

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.

Microsoft Excel

Microsoft Office is an integrated suite of applications that includes Outlook, Word, Excel, Access, PowerPoint, Visio and InfoPath, along with a number of tools to assist in making the individual components work together. Coding within and between the projects is done in Visual Basic for Applications, known as VBA.