Использовать значение активной ячейки в метке пользовательской формы

Question

Как я могу использовать target.value в метке в пользовательской форме? Что бы я ни пытался, я получаю ошибку. (Время выполнения "438": объект не поддерживает свойство или метод)

Я бы хотел, чтобы пользовательская форма показывала, когда изменяется номер ячейки:

Код моей рабочей таблицы:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range


    Set KeyCells = Range("D8:D12")

If Not Application.Intersect(KeyCells, Target) Is Nothing Then

        UserForm1.Show

End If
End Sub

Мой код пользовательской формы так, как я себе представляю, должен работать (но он не работает):

Private Sub UserForm_Initialize()

Label1.Caption = Worksheets("Personal Barrier").Target.Offset(0, -1).Value

End Sub

Answer 1

В объекте Worksheet отсутствует свойство Target. Вы можете установить метку в Worksheet_Change методе:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range

    Set KeyCells = Range("D8:D12")

    If Not Application.Intersect(KeyCells, Target) Is Nothing Then
        UserForm1.Label1.Caption = Target.Offset(0, -1).Value
        UserForm1.Show

    End If
End Sub