Excel Vba

[NaWin55]

Hi all
I want to create a macro which extracts first 2 or 3 values from a cell
and prints those extracted values in to any cells

here is the macro i have written
but i cant print extracted values to adjacent cells

Sub ExcelMain()
Excel.Application.ScreenUpdating = False

Dim i As Integer
Dim a As Long
For i = 1 To 5
a = Range("E5").Offset(i, 0).Value
a = Left(a, 2)
Next

End Sub

thank you

 

[LWolf]

I fail to see a CATIA connection?...
anyways, before the next statement, insert this line:
Range("B2").Offset(i, 1).Value = a

regards,
LWolf

 

[NaWin55]

Thank you Lwolf
it worked