Задайте для значения столбца найденной ячейки имя

Question

Я пытаюсь установить значения для переменных, которые будут использоваться позже в моем коде, на основе значения столбца найденной ячейки. Благодаря некоторой существующей теме мне удалось найти ячейку, но я не могу установить значение ее столбца для имени.

Вот мой код:

Dim rFind As Range


With Range("A1:DD1")
Set rFind = .Find(What:="FIND", LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)

MsgBox rFind.Column


End With

End Sub

MsgBox возвращает правильный номер столбца, но мои попытки установить для него имя не удались.

Спасибо за вашу помощь!

EDIT:

Моя цель - создать автомат c таблица с данными, извлеченными из другой таблицы. Я хочу использовать номер столбца для извлечения данных для каждой строки моей таблицы из правильного столбца. В настоящее время я использую систему, в которой я «жестко запрограммировал» свои имена для текущего номера столбца (например: Publi Const example As Integer = 5). Однако это не гибкое решение, если моя таблица данных должна измениться (новые или удаленные столбцы). Поиск столбца, который нужно установить, решит проблему.

Answer 1

Может так, чтобы назвать всю колонку?

rFind.EntireColumn.Name = "Fred"

Полный код

Sub x()

Dim rFind As Range

With Range("A1:DD1")
    Set rFind = .Find(What:="FIND", LookAt:=xlWhole, MatchCase:=False, SearchFormat:=False)
    If Not rFind Is Nothing Then
        rFind.EntireColumn.Name = "Fred"
    Else
        msgbox "Not found"
    End If
End With

End Sub