Excel VBA - Repeating Simple Actions?

[MEUserII]

Is there a prebuilt way in Excel VBA to repeat simple actions? For example, if I want to repeat the following single action of SendKeys in the following Excel VBA macro is there a prebuilt way to do this?

Sub Test1()

SendKeys ("{TAB}")
SendKeys ("{TAB}")
SendKeys ("{TAB}")
SendKeys ("{TAB}")
SendKeys ("{TAB}")
SendKeys ("{TAB}")
SendKeys ("{TAB}")

End Sub

For example, may be in code something that is simple like this?:

Sub Test2()

SendKeys ("{TAB}")(x7)

End Sub

 

[shg]

Sub main()
  SendEm "{Tab}", 7
End Sub

Sub SendEm(s As String, n As Long)
  Application.SendKeys Replace(String(n, "@"), "@", s)
End Sub