Передача значения ячейки в переменную.

Private Sub UserForm_Initialize()
Workbooks.Open "C:\2.xls"
End Sub

Private Sub CommandButton1_Click()
Workbooks(1).Worksheets(4).Cells(1, 1).Value = _
Workbooks(2).Worksheets(3).Cells(1, 5).Value
End Sub

for i =1 to 10
range(Pi).select
next i

Sub Price()
Application.Workbooks.Item("050407Прайсы Excel.xls").Worksheets("Прайс").Activate
 
Dim code As String
Range("P28").Activate
 
For i = 1 To 270
Application.Workbooks.Item("050407Прайсы Excel.xls").Worksheets("Прайс").Activate
Range("P28").Select
ActiveCell.Cells(i).Activate
'r = ActiveCell.Cells.Address 'передача в переменную r адреса ячейки для дальнейшей записи
code = ActiveCell.Cells.Value
Application.Workbooks.Item("Остаток на 090407_091858.xls").Worksheets("Остатки товаров").Activate
 
'Cells.Find("code").Activate
Debug.Print code
Next i
 
End Sub

With Application.Workbooks(1).Worksheets(1).Cells
Set c = .Find(code, Cells(1, 1), xlValues, xlWhole) 'поехали
If Not c Is Nothing Then        'если ничего не нашли
Do
c.Value = 666       'делаем, что хотим
Set c = .FindNext(c)        'продолжим
Loop While Not c Is Nothing     'цикл поиска
End If
End With