VBA - hide all rows unless column F contains specific text in cell

[strongman86]

Hi Lads,

I have macro below which hides all rows and leaves all rows with text ''APPLE'' in F column on Sheet2, it works ok, but the problem is that in this table all cells are referrencing to different sheet i.e. ='Sheet1'!A1 which means Marco hides all rows not containing APPLE and all the rest of my around 1000 rows with reference formulas in them. I there anything I can add to code so it ignores ''Empty''/Reference cells? Thanks.

Sub hidesome()    Dim r As Long    Application.ScreenUpdating = False    ActiveSheet.DisplayPageBreaks = False    r = Range("F" & ActiveSheet.Rows.Count).End(xlUp).Row    For r = 2 To r        Select Case Cells(r, 6)            Case "APPLE"                Rows(r).Hidden = False            Case Else                Rows(r).Hidden = True        End Select    Next rEnd Sub

 

[strongman86]

I didn't. Now I did and it started working perfectly Thank you ever so much.

 

[Fluff]

You're welcome & thanks for the feedback