Option Explicit

Category: Uncategorized

  • CompressPageRanges

    —

    by

    Keith
    in

    Function CompressPageRanges(ByVal pageList As String) As String Dim pages() As String Dim i As Long Dim result As String Dim startPage As Long Dim endPage As Long pages = Split(pageList, “,”) For i = 0 To UBound(pages) If startPage = 0 Then startPage = CLng(pages(i)) endPage = startPage ElseIf CLng(pages(i)) = endPage + 1 Then…

  • IsCellHighlighted

    —

    by

    Keith
    in

    Function IsCellHighlighted(cell As Range) As Boolean IsCellHighlighted = (cell.Interior.ColorIndex <> xlNone)End Function