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
|Excel Error "Could not load an object because it is not available on this machine"||6||18|
|increment numbers by 10||11||30|
|NEED TO UPDATE DATA IN EXCEL||18||32|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
16 Experts available now in Live!