[VB] - High excelling! (forse..)

[MmarcoO]

ciao a tutti,
stavo lavorando su di una macro excel per dei report, che purtroppo sembra avere una limitazione sul numero di caratteri per un valore, (sul il nome del jpg che viene inserito nell'excel, non riconosciuto se maggiore di 4)
vi posto un pezzo dello script dove credo sia l'inghippo:

Dim cambio As Integer
Sub macroimmaginidob()
Dim Riga As Integer
Riga = 4
cambio = 0
Columns("A:A").Select
Selection.Insert Shift:=xlToRight
Selection.ColumnWidth = 20
Do Until Cells(Riga, 5) = ""
Do While Left((Cells(Riga, 5)), 4) <> Left((Cells(Riga + 1, 5)), 4)

Rows(Riga + 1).Select
Selection.Insert Shift:=xlDown
Selection.RowHeight = 215#
Rows(Riga).Select
grafik_einfuegen (Riga)
Riga = Riga + 2

Loop

Riga = Riga + 1
Loop
End Sub



Sub grafik_einfuegen(moi)


y = Range("C1")
ActiveSheet.Select

Select Case Len(Cells(moi, 5))
Case 4
ActiveSheet.Pictures.Insert(y + Left(Cells(moi, 5), 4) + ".jpg").Select
cambio = cambio + 1
End Select

End Sub

- - - - - - - - - -- - - - - - -
qualcuno già riesce a capire dove potrebbe essere l'errore?
tnks!