Lunks,

Your formula is too long - Inputboxes are limited to 255 characters:

Dim myStr As String
Dim UF As String
myStr = "=IF(PedidosImp!RC[-20]="""",IF(PedidosImp!RC[-11]=""ML"",""MIL"" & " & _
"REPT("" "",2),IF(PedidosImp!RC[-11]=""PT"",""PK"" & REPT("" "",3)," & _
"IF(PedidosImp!RC[-11]=""CL"",""CT"" & REPT("" "",3)," & _
"IF(PedidosImp!RC[-11]=""LT"",""L"" & REPT("" "",4)," & _
"IF(PedidosImp!RC[-11]=""PR"",""PAR"" & REPT("" "",2)," & _
"IF(PedidosImp!RC[-11]=""MT"",""M"" & REPT("" "",4)," & _
"PedidosImp!RC[-11] & REPT("" "",5-LEN(PedidosImp!RC[-11])))))), REPT("" "",10))"

MsgBox Len(myStr)

UF = InputBox("Aperte Enter.", "", myStr)

MsgBox Len(UF)

HTH,
Bernie
MS Excel MVP


"Lunks" wrote in message
oups.com...
I'm getting "Compile Error: Expected: list separator or )"
With the following formula:
UF = InputBox("Aperte Enter.","
","=IF(PedidosImp!RC[-20]="""",IF(PedidosImp!RC[-11]=""ML"",""MIL"" &
REPT("" "",2),IF(PedidosImp!RC[-11]=""PT"",""PK"" & REPT(""
"",3),IF(PedidosImp!RC[-11]=""CL"",""CT"" & REPT(""
"",3),IF(PedidosImp!RC[-11]=""LT"",""L"" & REPT(""
"",4),IF(PedidosImp!RC[-11]=""PR"",""PAR"" & REPT(""
"",2),IF(PedidosImp!RC[-11]=""MT"",""M"" & REPT(""
"",4),PedidosImp!RC[-11] _
&REPT("" "",5-LEN(PedidosImp!RC[-11])))))),REPT("" "",10))"