Filter by specific header text

[Milos]

Hi all,

I am trying to filter for blanks on a specific column header and I am struggling to get my head around it/could not find any solution on the net relevant for this issue. I need to use this on about 30 different sheets and every single worksheet has the same text ("Received Progress") in slightly different columns so setting which column is not feasible.

Ideally the code should look similar to this (albeit with the "Received Progress" probably converted into a Dim that will work correctly):

ActiveSheet.Rows(2).AutoFilter
ActiveSheet.Rows(2).AutoFilter Field = "[COLOR=#ff0000]Received Progress[/COLOR]", Criteria1:="="

Can anybody please help? It will save me a good 4 hours of applying filters.
Cheers,
Milos

 

[Fluff]

Try

   Dim fnd As Range
   Set fnd = Range("2:2").Find("Received Progress", , , xlWhole, , , False, , False)
   If Not fnd Is Nothing Then
      ActiveSheet.Rows(2).AutoFilter
      ActiveSheet.Rows(2).AutoFilter Field = fnd.column, Criteria1:="="
   End If

 

[Milos]

Thanks Fluff!

I have added that into the rest of my code. Exactly what I needed!

 

[Fluff]

You're welcome & thanks for the feedback