вставить специальную в Excel 2007

Question

Я написал макрос (на personal.xlsb, потому что я хочу использовать его на каждом листе Excel) и назначил ему ярлык.К сожалению, я получаю сообщение об ошибке - что не так (переменная объекта не установлена ​​ошибка 91):

Public Sub wklej_specjalnie() 

    'wklej_specjalnie Makro ' 
    'Klawisz skrótu: Ctrl+Shift+v '

    On Error Resume Next

    ActiveSheet.ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 

End Sub

Answer 1

Не нужно указывать ActiveSheet; ActiveCell - активная ячейка на активном листе. Это должно работать для вас:

Public Sub wklej_specjalnie() 

    'wklej_specjalnie Makro ' 
    'Klawisz skrótu: Ctrl+Shift+v '

    On Error Resume Next

    ActiveCell.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False 

End Sub