Cita:
Iniciado por Monimo 
Pues no te funciona porque , estas convirtiendo el importe a una cantidad con signo de pesos, pero nunca escribes eso. Por el contrario despliegas lo que tiene Textbox3 que no es con el signo de pesos
importe = FormatCurrency(textbox3.text, 2)
activecell.formularqc1= importe
Asi debe ser .....
hola d nuevo fijate que ya lo puse y me sale un error que dice "erroe en tiempo de ejecucion", y me señala con una franja amarilla lo que esta mal que es esto mira
Private Sub TextBox3_Change()
Range("C7").Select
importe = FormatCurrency(TextBox3.Text, 2)
ActiveCell.formularqc1 = importe segun esto esta mal o no se
End Sub