[RESOLVED] How to loop all used cells certain column in a sheet vb.

[elmnas]

hello people,

I have got following code so far.

I wonder how I make my VBA loop into VB.


here is my VB CODE

        Dim xlApp As Excel.Application
        Dim xlSht As Excel.Worksheet
        Dim xlRng As Excel.Range
        xlApp = New Excel.Application

        xlApp.DisplayAlerts = False
        xlApp.Workbooks.Open(C:\test.xls)
        xlSht = xlApp.Sheets(1)
        xlRng = xlSht.Cells(1, 1) ' here is just some sample code to get any result
        MsgBox(xlRng.Value) ' just a msgbox to alert cell content (1,1)

here is my vba loop I need to convert to vb

  For i = 1 To ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).row
       Cells(i, "A").Value
    Next i

Could someone help me?

Thank you in advance