Argumento no opcional en macro de excel vba

Buenas noches

Cordial saludo

La presente para solicitar a ustedes el favor de ayudarme con unos cálculos que estoy realizando en una macro de excel. La idea es que tengo cuatro hojas de cálculo (p1, r1, p2 y r2) y en cada una de ellas se ingresan unos valores para calcular v1 y v2. El código que he colocado en el editor vba es el siguiente:

Sub calculos()
p1 = Sheets(p1).Range( "A1:C9" )
p2 = Sheets(p2).Range( "A1:C9" )
r1 = Sheets(r1).Range( "A1:C9" )
r2 = Sheets(r2).Range(" A1:C9" )
v1 = p1(i, j) * r1(i, j) + p1(i, j + 1) * r1(i, j + 1) + p1(i, j + 2) * r1(i, j + 2)
v2 = p2(i, j) * r2(i, j) + p2(i, j + 1) * r2(i, j + 1) + p2(i, j + 2) * r2(i, j + 2)
Debug.Print El valor de v1 es ; v1; y el valor de v2 es ; v2
End Sub

Estoy utilizando la nomenclatura i,j para que realice los cálculos para todos los valores que se coloquen en las diferentes hojas. Al correr esta macro se genera el mensaje de error 9, subíndice fuera del intervalo y al depurar marca en amarillo la línea 2 (donde está p1=Sheets...) y aún no logro entender por qué se genera el error a pesar de haberte solicitado ayuda con f1 en excel. Solicito a ustedes el favor de indicarme de qué forma puedo corregir la falla pues en verdad no entiendo.

Agradezco mucho su atención y su colaboración.

Atentamente

Clara Romero