excel2000 y excel2002

Hola amigos. Con vuestra ayuda, hice una hoja de cálculo en excel 2000 en la
que hay un botón de comando que imprime la fila que selecciono mediante el
siguiente código que puse en un módulo. Funciona perfectamente.
El problema es que me puse a utilizar la hoja en otro ordenador y otra
impresora con una versión de excel 2002 y cuando le doy al botón de comando
no hace absolutamente nada.
No se si podrá influir que el código, la hoja y el libro los tengo
protegidos con contraseña.
A ver si puedo resolverlo pronto, por favor. Saludos.





Sub imprimir2()
If UCase(ActiveSheet.Name) <> "ALBARANES" Then Exit Sub

Dim wksCli As Worksheet, wksFic As Worksheet
Dim rngO As Range, rngArea As Range
Dim lngFilas As Long, intRespuesta As Integer, n As Long

Set wksCli = Worksheets("Albaranes")
Set wksFic = Worksheets("HOJA SERVICIO")
Set rngO = Selection

For Each rngArea In rngO.Areas
lngFilas = lngFilas + rngArea.Rows.Count
Next rngArea
intRespuesta = MsgBox(prompt:="Se imprimirán " & lngFilas & " filas.",
Buttons:=vbOKCancel + vbInformation)
If intRespuesta = vbCancel Then Exit Sub

For Each rngArea In rngO.Areas
For n = 1 To rngArea.Rows.Count
With wksFic
.Range("BO2") = rngArea.Cells(n, 1)
.Range("AY4") = rngArea.Cells(n, 3)
.Range("AV8") = rngArea.Cells(n, 6)
.Range("AV9") = rngArea.Cells(n, 7)
.Range("BK9") = rngArea.Cells(n, 8)
.Range("AO12") = rngArea.Cells(n, 5)
.Range("E15") = rngArea.Cells(n, 9)
.Range("AC15") = rngArea.Cells(n, 10)
.Range("BB15") = rngArea.Cells(n, 11)
.Range("E19") = rngArea.Cells(n, 12)
.Range("E23") = rngArea.Cells(n, 13)
.Range("BO23") = rngArea.Cells(n, 14)
.Range("N39") = rngArea.Cells(n, 15)
.Range("AG39") = rngArea.Cells(n, 16)
.Range("BF39") = rngArea.Cells(n, 17)
.Range("E43") = rngArea.Cells(n, 18)
.Range("AL56") = rngArea.Cells(n, 4)
.Range("AI8") = rngArea.Cells(n, 2)

End With
wksFic.PrintOut
Next n
Next rngArea

Set rngArea = Nothing
Set rngO = Nothing
Set wksFic = Nothing
Set wksCli = Nothing
End Sub