Splitting value of cell in Excel sheet

[tarun]

Try this code

Code:

Dim Row_Count

Row_Count = 0

Set objExcel = CreateObject("Excel.Application")
objExcel.Workbooks.Open "c:/Test.xls"

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)

LoopCount = True

Do While LoopCount
    
    LoopCount = True
    Row_Count = Row_Count + 1
    If objSheet.Cells(Row_Count,1) = "" Then
        LoopCount = False
    End If
    
Loop

For i = 1 To Row_Count - 1
    Name = objSheet.Cells(i,2)
    aName = Split(Name," ")
    FirstName = aName(0)
    LastName = aName(1)    
Next