¿Cómo colorear celdas con datos variables por macros?

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!