Господа, срочно нужна ваша помощь.

Пытаюсь задать диапазон для копирования - OriWB.Worksheets(1).Range("A2:K2").Select

Но нихера не получается, видимо, потомучто Dim OriWB As Workbook

Как выделить и скопировать диапазон A2:K2 ?

На всякий случай вот весь макрос

Sub SborkaListov()

Dim WBmacros As Workbook 'Ôàéë äëÿ âñòàâêè äàííûõ (ôàéë ñ ýòèì ìàêðîñîì)
Dim OriWB As Workbook 'îðèãèíàëüíûé ôàéë
Dim iTempFileName As String 'èìÿ ïîî÷åð¸äíî îòêðûâàåìîãî ôàéëà

With Application
.ScreenUpdating = False
.DisplayAlerts = False
Set WBmacros = ThisWorkbook

Const DirLoc As String = "C:\Îáðàáîòêà ôèëèàëîâ ÑÈÀ\"
iTempFileName = Dir(DirLoc & "*.xls")

Do While iTempFileName <> ""

Set OriWB = Workbooks.Open(Filename:=DirLoc & iTempFileName, ReadOnly:=True)

OriWB.Worksheets(1).Range("A2:K2").Select
Selection.Copy

WBmacros.Activate

With ActiveSheet
.UsedRange.Select
.Cells(.UsedRange.Rows.Count + .UsedRange.Row, 1).Select

End With

ActiveSheet.Paste



OriWB.Close saveChanges:=False


iTempFileName = Dir

Loop

.DisplayAlerts = True
.ScreenUpdating = True
End With

End Sub

После добавления
OriWB.Activate
Worksheets(1).Select
Range("A2:K2").Select
Selection.Copy
Макрос перестал переберать все листы в книге. В чем причина?

Заработало.

Всем спасибо!