Я написал макрос - он работает, но когда я этот макрос задаю "кнопке" у меня выдается ошибка.
Ошибка выдается на такую строку :
Range("D71").Select

Ошибка: " Run-time erroe 1004
метод Select из класса Range завершен неправильно"

Подскажите пожалуйста, новичку , в чем проблема?
Заранее благодарен

Загадка отчасти решилась
когда присваевал макрос через вид\панели инструментов\формы все нормально, но когда (я раньше так делал) вставлял макрос вручную копированием в форму кнопки то нет . Почему так? что неправильно делаю?
собственно макрос если что изменит

' Сочетание клавиш: Ctrl+Shift+Q
'
Sheets("Кредитная нагрузка").Select
Range("B45").Select

Range("D23:F24").Select
Range(Selection, Selection.End(xlToRight)).Select
Range("D23:CB24").Select
Selection.ClearContents
Selection.End(xlToLeft).Select
Range("B23").Select
ActiveWindow.SmallScroll Down:=9
Range("C30").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
ActiveWindow.ScrollColumn = 70
ActiveWindow.ScrollColumn = 69
ActiveWindow.ScrollColumn = 68
ActiveWindow.ScrollColumn = 67
ActiveWindow.ScrollColumn = 66
ActiveWindow.ScrollColumn = 65
ActiveWindow.ScrollColumn = 59
ActiveWindow.ScrollColumn = 55
ActiveWindow.ScrollColumn = 53
ActiveWindow.ScrollColumn = 49
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.SmallScroll Down:=9
Range("C44").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-3
Sheets("6").Select
Range("D71").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlToLeft)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Кредитная нагрузка").Select
Range("B45").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.SmallScroll Down:=-9
Range("C23:C24").Select
Application.CutCopyMode = False
Selection.Copy
Range(Selection, Selection.End(xlToRight)).Select
Range("C23:CB24").Select
ActiveSheet.Paste
Selection.End(xlToLeft).Select
Range("D30").Select


Выдавал ошибку в строчке: Range("D71").Select

ДексSheets("6").Select
-здесь активировать лист
Range("D71").Select

Объект Range работает внутри активного листа.

Спасибо большое - разъяснили ;)
(все работает, тему можно закрывать)