Replace value entries generated via Data validation drop-down lists with a link to the validation list

Sub replace_entry_with_link(ByRef target As Range)
    Dim c As Range
    For Each c In target
        With Application.Range(Mid(c.Validation.Formula1, 2)).Find(c.Value)
            c.Formula = "=" & .Worksheet.Name & "!" & .Address
        End With
    Next c
End Sub

Code eingefügt mit VBA in HTML 2.3