Переименование диапазона в Excel VBA

Question

Я уверен, что это было сделано до смерти, но я не могу понять, что не так с моим кодом, который теперь бросает ошибку «Определено приложение или объект», но ТОЛЬКО, когда я запускаю это от кнопки на другом листе к тому, у кого есть данные, которые я хочу переименовать.

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

Sub updateDataSheet() 
    Dim lastColumn As Integer 
    Dim lastRow As Integer 
    lastColumn = (Sheets("Data").Cells(1, columns.count).End(xlToLeft).Column) 
    lastRow = Sheets("Data").Cells(Rows.count, 1).End(xlUp).Row 

    ActiveWorkbook.Names("myData").RefersTo = Sheets("Data").Range(Cells(1, 1), Cells(lastRow, lastColumn)) 
end sub 

Я предполагаю, что мне нужно добавить некоторые дополнительные ссылки, но не может видеть то, что я бы не быть, как абсолютное Excel VBA новичок!

Любая помощь будет высоко ценится

Answer 1

Это будет работать для вас,

Sub updateDataSheet() 
    Dim ws As Worksheet 
    Dim lastColumn As long 
    Dim lastRow As long 
    Dim rng As Range 
    Set ws = Worksheets("Data") 
    With ws 
     lastColumn = .Cells(1, Columns.Count).End(xlToLeft).Column 
     lastRow = .Cells(Rows.Count, 1).End(xlUp).Row 
     Set rng = .Range(.Cells(1, 1), .Cells(lastRow, lastColumn)) 
     rng.Name = "myData" 
    End With 
End Sub 

После определения диапазона вы можете назвать его.