Sub New_Experiment()
    '
    ' New_Experiment Macro
    ' Macro recorded 6/27/2011 by prasada
    '
    ' Keyboard Shortcut: Ctrl+r
    '
 

    On Error Resume Next
    Dim counter As Double
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Filename = Application.GetOpenFilename
    If Filename = "" Then End
    If Filename = "False" Then Exit Sub
    FileNum = FreeFile()
    Open Filename For Input As #FileNum
    counter = 1
    Do While Seek(FileNum) <= LOF(FileNum)
        Line Input #FileNum, ResultStr
        counter = counter + 1
        Application.StatusBar = counter
    Loop
    MsgBox "Total Number of Lines are:-   " & counter
    Application.StatusBar = False
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub