Cacher is the code snippet organizer for pro developers

Sub gotoBackM()
Dim arr, backM() As String
    arr = "Supplementary Materials:,Author contributions:,Funding:,Acknowledgments:,Conflicts of Interest:,Abbreviations,Appendix,References"
    backM = Split(arr, ",")
    Set dict = CreateObject("Scripting.Dictionary")
    Dim j, lastCall
    j = 1: lastCall = 0
    For i = LBound(backM) To UBound(backM)
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .MatchWildcards = False
            .Text = backM(i)
            .Execute
            If .Found Then
                Exit Sub
            End If
        End With
    Next
End Sub