¿Cómo colorear una celda con macros y datos variables?

Estimados:

Para colorear el fondo de la celda C17 de color gris quiero crear una función y llamarla:

Call Pinta_celda ( "c17", 2)

Pero utilizando este código me da error "Tipos diferentes"

Public Sub Pinta_celda(ByVal celda2 As Integer, ByVal color As Integer)
With Range(celda2).Interior
.ColorIndex = color 'Pinto de gris
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
End With
End Sub

Podrían indicarme en qué me estoy equivocando?

Muchas gracias!