for each………next

Sub Macro0429()
Dim myArray() As Variant
Dim s As Variant
myArray = Array(10, 20, 30)
For Each s In myArray
MsgBox s
Next s
End Sub