en vba como cuento el número de celdas horizontal y vertical pregunta 1/8

hola (...), ?????

sigo haciendo pruebas
Function TotalColumnas(Rang As Variant) As Integer
TotalColumnas = Range("A1:B3").Columns.Count
End Function
asi si que funciona, si pongo Rang como string no funciona
no me faltará alguna referencia????
cuanto utilizo en una celda
=TotalColumnas(A1:B3)
todo el rato error

veamos y vamos "por partes":

1) en tu consulta original comentabas (como ejemplo) "llamadas" a alguna funcion de esta forma:

=numerohorizontal ("C3:H7")
si yo en una celda pongo esto me deberia devolver 6
=numerovertical ("C3:H7") y en vertical 5

nota que lo que expones (entre parentesis) para llamar a "la funcion" ES una cadena de texto (String)
luego entonces, con la propuesta de codigo, la llamada desde celdas en hojas de calculo es "como" la pides:
[A1] =TotalColumnas("c3:h7") <= devuelve 6
[A2] =TotalFilas("c3:h7") <= devuelve 5

2) si crees que el usuario va a usar la funcion "como le plazca", entonces es necesario usar prevencion/correccion de errores (?)
es decir, si el objetivo de la funcion es "tomar" un rango (direccion en texto) para contar filas/columnas
como se puede ocurrir introducir como argumento un texto "diferente" de una direccion de celdas/rangos ?????

3) ahora, si el argumento lo vas a pasar a "la funcion" haciendo referencia "directa" a un rango de celdas...
[C5] =TotalColumnas(A1:B3)
=> no te parece mas facil/rapido/natural/... usar las funciones integradas de excel ???
[C5] =COLUMNAS(A1:B3)

por "esto" es que te comentaba que:

"no tiene sentido "simular" las funciones que ya trae integradas excel"

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.