Excel - condicion no funciona

que tal, estoy tratande de filtrar datos trayendo datos de un libro a otro, esto mediante la entrada desde teclado por medio de un cuadro de mensaje, lo intente con cuadros de texto sobre la hoja per nunca funciono lamacro y me marcaba error, ahora con el cuadro de texto ya no me manda error pero no entra a la condicion, me ayudan? este es el codigo

Mensaje1 = "introfuce el porcentaje que deseas traer"
Titulo1 = "Cuadro de entrada"
Estandar1 = 1
valor = InputBox(Mensaje1, Titulo1, Estandar1)

Workbooks("MinutaRF(Sureste).xls").Activate
Sheets("Top Ofenders").Select

Cells(filalista, columnalista).Select
aux = ActiveCell * 100 // esto es para converir la ccelda que esta en porcentaje a numero

If aux > valor Then // a esta condicion no entra
Workbooks("Extraer.xls").Activate
Sheets("Hoja1").Select

Cells(4, 2) = 4
Range("C4") = aux


filalista = filalista + 1
Else

filalista = filalista + 1
End If

Intenta con:

If aux > Val(valor) Then

y comentas

Abraham

ok, si funciono muchas gracias, pero anteriormente estuve intentando con un cuadro de texto insertado en la hoja, pero me marcaba un error a la hora de compilar el codigo, obvio estoy equivocado. como accedo al valor introducido a un cuadro de texto( control ActiveX)

Workbooks("MinutaRF(Sureste).xls").Activate
Sheets("Top Ofenders").Select

valor = TextBox1.Text 'aqui me marca el error, aunque tambien intente con
'val(TextBox1.Text)
filalista = fila + 1
columnalista = columna + 1

Cells(filalista, columnalista).Select
aux = ActiveCell * 100

Range("B1") = aux

If aux > Val(valor) Then
Workbooks("Extraer.xls").Activate
Sheets("Hoja1").Select

Cells(4, 2) = 4
Range("C4") = aux
filalista = filalista + 1
Else

filalista = filalista + 1
End If