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 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 F5SpecialCF


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 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 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!