Dim oXL As Excel.Application
      Dim oWB As Excel.Workbook
      Dim oSheetBasicdata As Excel.Worksheet
      Dim oRng As Excel.Range
      Dim C As Object
 
      oXL = CreateObject("Excel.Application")
      oXL.Visible = True
      oWB = oXL.Workbooks.Open("C:\MyFiles\test.xls")
 
	oSheetBasicdata = oWB.Sheets("Basicdata")
 
        For Each C In oSheetBasicdata.Range("4:4")
 
            If C.Value <> "" Then
 
		…….
 
            Else
                Exit For
            End If
 
        Next C

For Each C In oSheetBasicdata.Range("4:4")