Excel - valor de celda condicional al texto de otra

Hola Amigos.Feliz 2007
Se me plantea algo parecido a utilizar la funcion SI: necesito que una celda coloque un valor u otro según el TEXTO (no lógico ni numérico) de otra que la precede en la misma fila:

sería algo así como:
si A1="pr" entonces poner en A2 42,00
si A1="Ad" entonces poner en A2 9,00
si A1="ips" entonces poner en A2 60,00

como podría hacerlo? GRACIAS

prueba con un select case, asi:


sub datoincellA()
dim datoencelda as string

datoencelda = cells(1,1).value

selec case datoencelda
case "pr"
cells(2,1).value = 42000
case "Ad"
cells(2,1).value = 900
case "ips"
cells(2,1).value = 6000

end sub