May’s Course of the Month is now available! Experts Exchange’s Premium Members and Team Accounts have access to a complimentary course each month as part of their membership—an extra way to increase training and boost professional development.
Sub testcf() Dim iCFCount As Integer, iCnt As Integer Dim sCForms() As String iCFCount = ActiveCell.FormatConditions.Count ReDim sCForms(1 To iCFCount) For iCnt = 1 To UBound(sCForms) Debug.Print "CF Item " & iCnt & " is " & ActiveCell.FormatConditions.Item(iCnt).Formula1 Next iCnt End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|sending mail each sheet to respective DL with a message prompt||3||43|
|find and replace in column A across 75 csv books||8||28|
|Issue with nested if statement and vlookup formula||4||40|
|VBA to toggle change the excel table structured reference to explicit cell references||3||10|
Join the community of 500,000 technology professionals and ask your questions.