Necesito crear macro que guarde en PDF y que cambie nombre según una celda, devolviendo confirmación

este es el código que he podido recopilar, de otra respuesta

Sub guardapdf()
'Por daM
Ruta = "C:\"
nombre = Ruta & "Cliente" & Worksheets("Hoja2 (Factura)").Range("I3") & ".pdf"
Worksheets("Hoja2 (Factura)").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=nombre, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
MsgBox "Se ha guardado la Factura Cliente" & Worksheets("Hoja2 (Factura)").Range("I3") & " en su escritorio"
End Sub

En la casilla I3 de la hoja 2 (nombrada Factura) es donde aparece el nombre del cliente que es el nombre con el que desearía guardar el archivo.pdf

No obstante al ejecutarla me aparece el siguiente error:

Se ha producido el error '9' en tiempo de ejecución:

Subíndice fuera de intervalo

Os agradecería cualquier ayuda que me pudieseis ofrecer :)