Code:
Set objXL = CreateObject("Excel.Application")
objXL.Application.visible = true
Set objWB = objXL.WorkBooks.Open(filePath)
Set objWS = objXL.ActiveWorkBook.WorkSheets(workSheetName)
'how many rows are used in the current worksheet
rCount = objWS.UsedRange.Rows.Count
'Considering u know the column number
For row = 1 To rCount
MsgBox objWS.Cells(row,column).Value
Next
objXL.Quit
Set objXL = Nothing
Set objWB = Nothing
Set objWS = Nothing