Yo diría que de esta forma te tiene que funcionar (lo acabo de probar y a mí me funciona, me devuelve 1):
Código:
If Sheets(vof).Select Then
contador = 1
Else
contador = 0
end if
Siempre y cuando la variable
vof tome algún valor. ¿Seguro que esa variable no está vacía?. Prueba a imprimir el valor de vof en una celda, a ver que te sale.
Salu2