excel - VBA find approximative header name

Question

I am trying to use a find to find me a header. The issue is that the header may have small variation (maybe an extra space or one of the words in plural). Therefore I would like it to find approximate matches. Anyone knows how? Thanks! This is my VBA:

With Sheets("Sheet0").Range("A1:BB1")
    Set rng = Sheets("Sheet0").Range("A1:BB1").Find(What:="How would you rate the technical quality of today's presentation?", _
        lookat:=xlWhole, MatchCase:=False)
    If (Not rng Is Nothing) Then
        rng.EntireColumn.Cut Destination:=Sheets("Sheet0").Columns("P:P")
    Else
    End If
End With

question from:https://stackoverflow.com/questions/66050200/vba-find-approximative-header-name

Answer 1

Waitting for answers