- – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - – - -

Public Function LoopThroughColumn(strCol, strWrkShtName) As Boolean
  Dim lLastRow As Long, lLastColumn As Long
  Dim bReturn As Boolean
  Dim iWCount As Integer
  Dim arrWordPositions()
  ReDim arrWordPositions(10)
 
 
  With Range(strCol & “1″).SpecialCells(xlCellTypeLastCell)
    lLastRow = .Row
    lLastColumn = .Column
  End With
       
  Dim rangeCell As Range
  Dim formattedCell As String
   
      For Each rangeCell In Range(strWrkShtName & “!” & strCol & “1:” & strCol & lLastRow)
        If Trim(rangeCell.Value) <> “” Then
            ‘Make cell the active cell
            rangeCell.Activate
            rangeCell.Value = HighlightChanges(rangeCell.Value, arrWordPositions, iWCount)
            If (iWCount > 0) Then
                bReturn = FindWords(iWCount, rangeCell.Value, arrWordPositions)
            End If
        End If
      Next rangeCell
    LoopThroughColumn = True
End Function

- – - – - – - – - – - – - – - – - – -

Rhino/SketchUp/Revit  Team

Veronica, Melvin