Макрос по копированию данных из другого фаила

[Devourer12345]

А как обратиться к третьему листу по парядку?
Есть фаил.xls с листами "вася", "гога", "дима"... я хочу что бы вне зависимости от их названией активировался 3-й лист и "дима" менялся на "жорик"

[SAS888]

Например, для того, чтобы выбрать 3 лист, можно использовать:

Sheets(3).Select

А чтобы переименовать лист 3, не обязательно его выбирать. Можно:

Sheets(3).Name = "жорик"

[Devourer12345]

А если на другой фаил в этой-же папке с названием "привет.xls"?

[SAS888]

Не экономьте слова. Что на что нужно поменять? Имя какого-то файла, или имя какого-то листа в каком-то файле? Какое на какое?

[Devourer12345]

Ну есть функция With ActiveSheet
она означает что работаем с текущай страницей...
я хочу сделать текущай 3-ю страницу фаила "привет.xls" который находится в папке "1" вместе с фаилам "солнце.xls". При этом до этого я работал в фаила "солнце" и не знаю полный путь до папки "1"....

[VictorM]

пост №8, если файлы находятся в одной папке

ph = ActiveWorkbook.Path   
Workbooks.Open Filename:=ph & "\" & "привет.xls"
Sheets(3).Select

[Devourer12345]

Пишет что синтаксическая ошибка в Workbooks.Open Filename:=ph & "\" & привет.xls

на данный момент код имеет вид
ph = ActiveWorkbook.Path
Workbooks.Open Filename:=ph & "\" & 3.xls
Sheets(1).Select


With ActiveSheet
Dim Row1 As Long, Row2 As Long
Row1 = ActiveWorkbook.ActiveSheet.UsedRang e.Row
Row2 = Row1 + ActiveWorkbook.ActiveSheet.UsedRang e.Rows.Count - 1
MsgBox "R1=" & Str(Row1) & " R2=" & Str(Row2)
[D5].FormulaR1C1 = Row1
End With

[D3].FormulaR1C1 = "='[3.xls]3'!R8C1"
Range("D4").Select

[Serge_Bliznykov]

Workbooks.Open Filename:=ph & "\" & 3.xls

у кавычки куда делись!?!?!?!
надо так:
Workbooks.Open Filename:=ph & "\" & "3.xls"

ВНИМАТЕЛЬНЕЕ НАДО БЫТЬ!!!

[Devourer12345]

Есть Row2 As Long
Я хочу что-бы некоторая функция была выполненна на диапазоне от A3 до A"row2" как мне это записать?

[Devourer12345]

Dim x As Integer
Dim obl As Range
Dim obl1 As Range
Dim obl2 As Range

With ActiveSheet
For x = 3 To (Row2)
Set obl1 = .Range("B" & x)
Set obl = .Range("A" & x)
Set obl2 = .Range("C" & x)
obl.Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(obl1,obl2)"
Next x
End With

Чета не работает ХЕЛП ПЛЗ!!!!!