I have used the below mentioned coding but, I haven't get anything on the
screen. Could you please check this out?

Private Sub init()
For i = 1 To 65000
If i = 100 Then
'MsgBox "check"
End If

If (i Mod 100 = 0) Then
Application.StatusBar = True
Application.StatusBar = "Processing Row:" & i
End If

Cells(i, 1) = i
Next i
Application.StatusBar = False
End Sub

Moreover, is that anyway can we use the progress  bar (like a window  which is
used for installation process)? Please advice me