Help with making code for efficient

[Sean15]

Hi:

I adapted codes below from old online codes. Code is supposed to hide all blank rows after last row of data in Column C (well, that’s my intent). The code runs very slow. Also, after executing code, there are two blank rows after the last row of data. Blank rows should be hidden after the code executes. Could someone fix code to?

Make it run faster
Hide all blank rows after last row of data in column C.

Sub HideRowCellTextValue()

Rows.EntireRow.Hidden = False

Application.ScreenUpdating = False

StartRow = 12

LastRow = 1233

iCol = 3

For i = StartRow To LastRow

If Cells(i, iCol).Value <> "" Then

Cells(i, iCol).EntireRow.Hidden = False

Else

Cells(i, iCol).EntireRow.Hidden = True

End If

Next i

Application.ScreenUpdating = True

End Sub

Thank you for your help.

 

[Logit]

Something else is going on with your code. I ran the macro here and it completed in less than one second.

 

[Fluff]

@Sean15 in future please do not mark a post as the solution when it does not contain one. Thanks