Я изо всех сил пытался заставить этот код работать в общей рабочей таблице. Если я запускаю код в неразделенной электронной таблице, он работает нормально. Но если я предоставлю доступ к рабочему листу, я получу следующую ошибку.
Время выполнения 1004 (ошибка приложения или объекта).
Что пошло не так?
Public Sub RemoveDuplicateRows(Arknavn)
Dim MyRange As Range
Dim LastRow As Long
Sheets(Arknavn).Activate
LastRow = Sheets(Arknavn).Range("A" & Rows.Count).End(xlUp).row
Set MyRange = Sheets(Arknavn).Range("A1:c" & LastRow)
MyRange.RemoveDuplicates Columns:=1, Header:=xlYes
End Sub