Hacer Referencia al número de hoja en una fórmula

Cree una función personalizada en VBA que se llama CONTARCOLOR que me pide dos argumentos, el criterio (color que buscará) y en donde lo va a buscar. En el libro tengo 1 hoja en donde va a realizar todos los calculos y desde el mismo libro puedo abrir las hojas donde necesito contar las celdas de determinado color, el problema es que el nombre de la hoja varía dependiendo las que necesite, quisiera desde la fórmula CONTARCOLOR hacer referencia al número de hoja y no al nombre de hoja.

Actualmente funciona así: =CONTARCOLOR(A1,Agosto!A:A)

Quiero que haga referencia al número de hoja algo así:

=CONTARCOLOR(A1,"Sheet(2)!A:A) : De esta manera no esta funcionando. Si alguien puede ayudarme para que en la formula pueda hacer referencia al número de hoja sin importar el nombre.

Este es el código de la función CONTAR COLOR en dado caso que deba hacerse desde la función en VBA y modificarse.

Function CONTARCOLOR(celdaOrigen As Range, rango As Range)
Application.Volatile
'Variables
Dim celda As Range
'Recorremos todas las celdas del rango
For Each celda In rango
'Compara la propiedad Interior.Color
If celda.Interior.Color = celdaOrigen.Interior.Color Then
CONTARCOLOR = CONTARCOLOR + 1
End If
Next celda
End Function