Excel - Macros, no funciona en otra pc

Hola:
Esta macros funciona bien en mi máquina, PERO NO EN OTRA PC, es para imprimir una hoja, que va cambiando una celda y cambia las demás con Busca V, con referencia a otras hojas del mismo libro. Ayúdenme por favor

Sub Imprimir_Todo()
' Imprimir Todo Macro
Dim NombreArchivo, RutaArchivo As String, ndeorden As Integer
ndeorden = 1
Range("G10:I10").Select
ActiveCell.FormulaR1C1 = ndeorden
Do While Range("C11").Value > 2
Range("G10:I10").Select
ActiveCell.FormulaR1C1 = ndeorden
Sheets("MIS BOLETAS").Select Range("C9").Select
NombreArchivo = Range("C9").Value
RutaArchivo = ActiveWorkbook.Path & "\" & NombreArchivo & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=RutaArchivo, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
ndeorden = ndeorden + 1
Loop
MsgBox "Revise su(s) Archivo(s) PDF en la ubicación de su Archivo: REGISTRO AUXILIAR BOLETA", vbOKOnly, "Estimado Profesor(a)"
End Sub