Application.wait not working as expected

[Sufiyan97]

I have below code, which is not working as expected.
What I want is to wait a code for 2 sec before going to another line, but when I run the code, it shows in VBA window as running and does not do anything except when I press "ESC" from keyboard, and code runs in one go without waiting for 2 sec before each line.

Sub Macro1()


    Range("A1").Value = "Name"
    Application.Wait "00:00:02"
    
    Range("A2").Value = "A"
    Application.Wait "00:00:02"
    Range("A3").Value = "B"
    Application.Wait "00:00:02"
    Range("A4").Value = "C"
    Application.Wait "00:00:02"
    Range("A5").Value = "D"
    Application.Wait "00:00:02"


    Range("A1").Select
   
  
End Sub

 

[daverunt]

I tried it using the following and it does what you'd expect.
- edit found shorter version

 Application.Wait (Now + TimeValue("00:00:02"))