I have a mixture of 2003 / 2007 workbooks, and want to check for the
existence of condionally formatted cells using VBA, something
like .....


For each cell in used.range.cells

Sorry (pressed send by accident) ...

For each cell in usedrange.cells
if cell.formatting = conditional then
msgbox cell.addresss & " is condionally formatted"
end if
Next

(Obviously the above code doesn't work, but merely describes what I'm
trying to achieve)

Any assistance appreciated
Thanks
John

You sure you want to pop up a msgbox for each cell?

For Each cell In ActiveSheet.UsedRange.Cells
If cell.FormatConditions.Count > 0 Then
MsgBox cell.Address & " is conditionally formatted"
End If
Next


Gord Dibben MS Excel MVP




On Thu, 18 Feb 2010 08:15:04 -0800 (PST), jh <(E-Mail Removed)> wrote:

>Sorry (pressed send by accident) ...
>
>For each cell in usedrange.cells
> if cell.formatting = conditional then
> msgbox cell.addresss & " is condionally formatted"
> end if
>Next
>
>(Obviously the above code doesn't work, but merely describes what I'm
>trying to achieve)
>
>Any assistance appreciated
>Thanks
>John

Forgot to mention.

You can also check for CF on a sheet by F5>Special>CF


Gord

On Thu, 18 Feb 2010 12:50:11 -0800, Gord Dibben <gorddibbATshawDOTca> wrote:

>You sure you want to pop up a msgbox for each cell?
>
>For Each cell In ActiveSheet.UsedRange.Cells
> If cell.FormatConditions.Count > 0 Then
> MsgBox cell.Address & " is conditionally formatted"
> End If
>Next
>
>
>Gord Dibben MS Excel MVP
>
>
>
>
>On Thu, 18 Feb 2010 08:15:04 -0800 (PST), jh <(E-Mail Removed)> wrote:
>
>>Sorry (pressed send by accident) ...
>>
>>For each cell in usedrange.cells
>> if cell.formatting = conditional then
>> msgbox cell.addresss & " is condionally formatted"
>> end if
>>Next
>>
>>(Obviously the above code doesn't work, but merely describes what I'm
>>trying to achieve)
>>
>>Any assistance appreciated
>>Thanks
>>John

On 18 Feb, 20:50, Gord Dibben <gorddibbATshawDOTca> wrote:
> You sure you want to pop up a msgbox for each cell?
>
> For Each cell In ActiveSheet.UsedRange.Cells
> * * If cell.FormatConditions.Count > 0 Then
> * * * * MsgBox cell.Address & " is conditionally formatted"
> * *End If
> Next
>
> Gord Dibben *MSExcelMVP
>
> On Thu, 18 Feb 2010 08:15:04 -0800 (PST),jh<g...@4v1.co.uk> wrote:
> >Sorry (pressed send by accident) ...
>
> >For each cell in usedrange.cells
> > * *if cell.formatting = conditional then
> > * * * *msgbox cell.addresss & " is condionally formatted"
> > * end if
> >Next
>
> >(Obviously the above code doesn't work, but merely describes what I'm
> >trying to achieve)
>
> >Any assistance appreciated
> >Thanks
> >John

Perfect ...thank you Gordon!