part of string in Select case

[sal21]

i want to intercept the first left character in the Case Select... how to
piece of code:

Select Case TIP_SOSP

Case "150008040030"
FOGLIO = "1500_0804_0030"
ULTIMA = Sheets(FOGLIO).Cells(65536, 1).End(xlUp).Row + 1
GoTo IMPORTA
Case "250008050030"
FOGLIO = "2500_0805_0030"
ULTIMA = Sheets(FOGLIO).Cells(65536, 1).End(xlUp).Row + 1
GoTo IMPORTA
*****************
Case Left(1, 4) = "1500"
FOGLIO = "1500"
ULTIMA = Sheets(FOGLIO).Cells(65536, 1).End(xlUp).Row + 1
GoTo IMPORTA
****************
'Case "2500"
' FOGLIO = "2500"
' ULTIMA = Sheets(FOGLIO).Cells(65536, 1).End(xlUp).Row + 1
' GoTo IMPORTA
'Case "3500"
' FOGLIO = "3500"
' ULTIMA = Sheets(FOGLIO).Cells(65536, 1).End(xlUp).Row + 1
' GoTo IMPORTA
Case Else
FOGLIO = "L0953"
ULTIMA = Sheets(FOGLIO).Cells(65536, 1).End(xlUp).Row + 1
GoTo IMPORTA

End Select

[mudraker]

as per attached code

Please Login or Register  to view this content.