I need faster code

Does anyone have any suggestions on how to speed this up? I need it to be as fast as possible.

Sub Find()

Dim i As Long
Dim x As Long

Dim SS As Object
    Set SS = frmSearch.Spreadsheet1.Sheets("Data")
Dim SearchData As String
Dim NoSD As Long
    NoSD = SS.Range("A65536").End(xlUp).Row

Dim FinalRow As Long
    FinalRow = Range("A65536").End(xlUp).Row
    
For i = FinalRow To 2 Step -1
DoEvents
    For x = 1 To NoSD
    DoEvents
        SearchData = SS.Range("A" & x).Value
        If Range("C" & i).Value = SearchData Then
            
            If frmOptions.chkBold = True Then 'Bold
                Rows(i).Font.Bold = True
            End If
            
            If frmOptions.chkDeBoldText = True Then
                Rows(i).Font.Bold = False
            End If
        
            If frmOptions.chkClear = True Then 'ClearContents
                Rows(i).ClearContents
            End If
        
            If frmOptions.chkDelete = True Then 'Delete
                Rows(i).Delete
            End If
        
            If frmOptions.chkHighlight = True Then 'Highlight
                Rows(i).Interior.Color = vbYellow
            End If
            
            If frmOptions.chkNoFill = True Then
                Rows(i).Interior.Color = xlNone
            End If
        End If
    Next x
    Application.StatusBar = "Working with line # " & i & " w/ criteria " & x
Next i

Application.StatusBar = False

End Sub

Hello Mpeplow,

It would be faster to call the basic If portions of your Find macro from the Change Event for each check box involved.

Sincerely,
Leith Ross

Originally Posted by Leith Ross

Hello Mpeplow,

It would be faster to call the basic If portions of your Find macro from the Change Event for each check box involved.

Sincerely,
Leith Ross

I'm sorry, I don't quite follow you. Could you show me or point me to an example please?

Thank You

Hello Mpeplow,

Do you need to do this as a "batch"? Say, the macro is being called from a command button?

Thanks,
Leith Ross

Hello Mpeplow,

Try this version, and let me know what happens. Since I don't have the data you have, this macro hasn't been tested. Use a copy of your workbook to test it.

Revised Macro Code

Sub Find()

  Dim ActiveRng As Range
  Dim Cell As Range
  Dim DataCell As Range
  Dim SS As Object
  Dim NoSD As Range
  Dim SS As Object
  
    Set SS = frmSearch.Spreadsheet1.Sheets("Data")
      With SS
        Set NoSD = .Range("A2", .Cells(.Rows.Count, "A").End(xlUp))
      End With

    With ActiveSheet
      Set ActiveRng = .Range("C2", .Cells(.Rows.Count, "C").End(xlUp))
    End With
    
    
      For Each DataCell In NoSD
        For Each Cell In ActiveRng
          If Cell.Value = DataCell.Value Then
            
             With Cell
               If frmOptions.chkClear = True Then 'ClearContents
                  .ClearContents
                  GoTo NextCheck
               End If
        
               If frmOptions.chkDelete = True Then 'Delete
                  .Delete
                  GoTo NextCheck
               End If
               
               If frmOptions.chkBold = True Then 'Bold
                  .Font.Bold = True
               End If
               
               If frmOptions.chkDeBoldText = True Then
                  .Font.Bold = False
               End If
               
               If frmOptions.chkHighlight = True Then 'Highlight
                  .Interior.Color = vbYellow
               End If
            
               If frmOptions.chkNoFill = True Then
                  .Interior.Color = xlNone
               End If
            End With
                 
          End If
NextCheck:
        Next Cell
      Next DataCell

End Sub

Sincerely,
Leith Ross