Macro que depende de celdas

Muy buenas noches Expertos, quisiera saber como puedo hacer que mi macro haga referencia a las celdas con los nombres de la hoja y del archivo, detallo mi macro para ver si me dan una ayuda,

Gracias

Private Sub CommandButton1_Click()
Dim strArchivo As String
Dim oLibro As Workbook
ActiveSheet.Range("R2").Select
nombre = ActiveCell.Offset(0, 1).Value
ruta = ActiveCell.Offset(0, 2).Value
strArchivo = ruta & ActiveCell.Offset(0, 1).Value
If Dir(strArchivo) = "" Then
MsgBox "No existe el archivo en la ruta indicada."
Exit Sub
End If
Application.ScreenUpdating = False
On Error Resume Next
Set oLibro = Workbooks(Dir(strArchivo))
On Error GoTo 0
If oLibro Is Nothing Then Set oLibro = Workbooks.Open(strArchivo)
oLibro.Worksheets("01").Range("C3:C439").Copy
Workbooks("Tareo Chuspiri - 2013-07-01.xlsm").Worksheets("Hoja1").Range("B2").PasteSpecial xlPasteValues
oLibro.Worksheets("01").Range("E3:F439").Copy
Workbooks("Tareo Chuspiri - 2013-07-01.xlsm").Worksheets("Hoja1").Range("C2").PasteSpecial xlPasteValues
oLibro.Worksheets("01").Range("M3:M439").Copy
Workbooks("Tareo Chuspiri - 2013-07-01.xlsm").Worksheets("Hoja1").Range("E2").PasteSpecial xlPasteValues
oLibro.Worksheets("01").Range("K3:K439").Copy
Workbooks("Tareo Chuspiri - 2013-07-01.xlsm").Worksheets("Hoja1").Range("F2").PasteSpecial xlPasteValues
oLibro.Worksheets("01").Range("P3:S439").Copy
Workbooks("Tareo Chuspiri - 2013-07-01.xlsm").Worksheets("Hoja1").Range("G2").PasteSpecial xlPasteValues
oLibro.Worksheets("01").Range("AB3:AC439").Copy
Workbooks("Tareo Chuspiri - 2013-07-01.xlsm").Worksheets("Hoja1").Range("K2").PasteSpecial xlPasteValues
oLibro.Worksheets("01").Range("AG3:AH439").Copy
Workbooks("Tareo Chuspiri - 2013-07-01.xlsm").Worksheets("Hoja1").Range("M2").PasteSpecial xlPasteValues
oLibro.Worksheets("01").Range("AL3:AM439").Copy
Workbooks("Tareo Chuspiri - 2013-07-01.xlsm").Worksheets("Hoja1").Range("O2").PasteSpecial xlPasteValues
oLibro.Close False
Set oLibro = Nothing
Application.ScreenUpdating = True
End Sub

Lo que quisiera es que todo lo resaltado en las negrita haga referencia a celdas: todos los:

Workbooks = U2

y todos los

Worksheets = V2

Pues esas celdas poseen los nombres del archivo y de la hoja.

Por adelantado muchas gracias por su ayuda.