Calling routine with name stored in string variable

Sub snb()
  j=1
  application.run "macro_" & j
End sub

or

Sub snb_002()
  sn=array("macro1","macro2","macro_3")
  application.run sn(2)
End Sub