hey guys i am done with the logic.....


Sub ReadStrings()
Dim sLine As String
Dim sFName As String 'Path and name of text file
Dim iFNumber As Integer 'File number
Dim lRow As Long 'Row number in worksheet
Dim lColumn As Long 'Column number in worksheet
Dim vValues As Variant 'Hold split values
Dim iCount As Integer 'Counter
sFName = "C:\Documents and Settings\vbarlotx\Desktop\Bharath
\AllExcel.csv"

'Get an unused file number
iFNumber = FreeFile
'Prepare file for reading
Open sFName For Input As #iFNumber
Sheet1.Cells.Clear
'First row for data
lRow = 1
Do
'Read data from file
Line Input #iFNumber, sLine
'Split values apart into array
vValues = Split(sLine, ",")
With Sheet2
'First column for data
lColumn = 1
'Process each value in array
For iCount = LBound(vValues) To UBound(vValues)
'Write value to worksheet
..Cells(lRow, lColumn) = vValues(iCount)
'Increase column count
lColumn = lColumn + 1
Next iCount
End With
'Address next row of worksheet
lRow = lRow + 1
'Loop until end of file
Loop Until EOF(iFNumber)
'Close the file
Close #iFNumber
End Sub