Macro very slow... help.

[terrycr]

I have a spreadsheet that will search through rows to see if there is a match to "C8" (a facility name based on the drop down selection). If so, it should display matching rows only and hide all others. The macro works very slowly. There are 1280 rows. Please advise on how I can shorten this run time.

The workbook can be seen here: WorkBook_Link

The macro is called "HideRowsOtherThanSelected" and initiated by clicking on the facility icon on C8.

Sub HideRowsOtherThanSelected()
StartRow = 12
EndRow = 1282
ColNum = 12
For i = StartRow To EndRow
If Cells(i, ColNum).Value <> Range("C8").Text Then
Cells(i, ColNum).EntireRow.Hidden = True
Else
Cells(i, ColNum).EntireRow.Hidden = False
End If
Next i

End Sub

Thanks in advance from a newbie.

 

[Fluff]

Why not use the autofilter instead.

Sub HideRowsOtherThanSelected()
   Range("C11:M11").AutoFilter 10, Range("C8").Value
End Sub

 

[terrycr]

Why not use the autofilter instead.

Sub HideRowsOtherThanSelected()
   Range("C11:M11").AutoFilter 10, Range("C8").Value
End Sub

Thanks for the quick reply. Going this route, my other almost 1000 rows still show (there is a date in the first column).... can this code be modified to hide the other rows too?

Thanks.

 

[Fluff]

You seem to have a table in C1202:D1203 called Table1, convert that to a range.