Macros del Excel

[MOlgaI]

Ok...

Quedaron corregidas los errores tanto con la g, el tipo de dato y las comillas y todo funciona correctamente ya me aplica la condición (solo para una celda), ahora lo que necesito es no solo aplicar la condicion a una celda sino a varias la condicion sigue siendo la misma pero para diferentes celdas.
Ya prove anidando la sentencia Select case no se si esto sea valido ya que no me funciona probe creando nuevas variables para cada celda y tampco, tambien me gustaria saber como puedo hacerle para que inmediatamente en que yo cambie el valor de la celda a la que se le aplica la condicion se ejecute la macro ya que cada que le cambio el valor a la celda condicionada tengo que precionar alt +f8 y darle en ejecutar lo cual es algo molesto les envio nuevamente mi codigo para que me ayuden

Gracias
saldos

Sub según_sea()

'declarar variables
Dim Porcentaje As Single
Dim Valor As Integer, resultado As Integer, equivalente As Integer



'asignar valores a la celda

Porcentaje = Range("F8").Value
resultado = Range("F9").Value
equivalente = Range("F10").Value


Select Case Porcentaje


Case 0.5
Valor = 0
resultado = 0
equivalente = 0

Case 0.6
Valor = 580
resultado = 580
equivalente = 580

Case 0.7 <= 0.709
Valor = 790
resultado = 790
equivalente = 790

Case 0.8
Valor = 1030
resultado = 1030
equivalente = 1030

Case 0.9
Valor = 1300
resultado = 1300
equivalente = 1300

Case 1#
Valor = 1600
resultado = 1600
equivalente = 1600

Case 1.1
Valor = 1690
resultado = 1690
equivalente = 1690

Case 1.2
Valor = 1800
resultado = 1800
equivalente = 1800

Case 1.21 <= 1.21
Valor = 1920
resultado = 1920
equivalente = 1920

Case Else

Valor = 0
resultado = 0
equivalente = 0


End Select

'asigna el valor obtenido segun la condicion
Range("G8").Value = Valor

'asigna el valor obtenido segun la condicion
Range("G9").Value = resultado

'asigna el valor obtenido segun la condicion
Range("G10").Value = equivalente



End Sub