Consulta sobre seleccionar una hoja

Hola. Necesito ir seleccionando una hoja en particular y también saber si el valor adentro es numérico o no. Este código no me funciona:
If IsNumeric((Hoja & j + 1)).Range("G" & i).Value Then
precio_lista = Hoja4.Range("G" & i)
end if