macro to show how to enter the data

[vipulgos]

Dear all,
I want to have a macro that inform end user how to enter the data in sheet. Macro should run like this:
In cellA1 data is "hello", after that in cell B2 there is "how are you" and so on. The end user should get informed how to enter the data. Presently by routine macro procedure, when i run macro it write all these data with a bullet speed.
How to do this, please guide me.

 

[VoG]

Try something like this

Sub Teach()
Range("A1").Value = "Hello"
Call msg
Range("B1").Value = "How are you?"
Call msg
End Sub

Private Sub msg()
MsgBox "Press OK to continue"
End Sub

 

[vipulgos]

I want it like this:

Sub Teach()
Range("A1").Value = "="
Application.Wait Now() + TimeValue("00:00:01")
Range("a1").Value = "5*4"
Application.Wait Now() + TimeValue("00:00:01")
End Sub

But, it should pause after = in a1 and then it should write after "=" the expression like "5*4" and then it should show the result as 20 after de selection of cell A1

 

[VoG]

Try this

Sub Teach()
With Range("A1")
    .NumberFormat = "@"
    .Value = "="
    Application.Wait Now() + TimeValue("00:00:01")
    .Value = "=5*4"
    Application.Wait Now() + TimeValue("00:00:01")
    .NumberFormat = "General"
    .Formula = "=5*4"
End With
End Sub

 

[vipulgos]

Done
Thanks a lot