How to pass an array to a procedure?

[Kifsif]

I can't pass an array to a procedure.

A B C
1 Name Zip Address
2 XYZ Telephone Inc. 567 1234 First Street

On the userform1 I have only one button.

My code.

Sub Archive()
Dim stickers(3) As String
stickers(1) = Cells(2, 1).Value
stickers(2) = Cells(2, 2).Value
stickers(3) = Cells(2, 3).Value
MsgBox (stickers(1) & Chr(10) & stickers(2) & Chr(10) & stickers(3))
UserForm1.Show
End Sub

Sub Spread(stickers())
Sheets(2).Select
Cells(2, 1).Value = stickers(1)
Cells(2, 2).Value = stickers(2)
Cells(2, 3).Value = stickers(3)
End Sub

Sub Archive()
Dim stickers(3) As String
stickers(1) = Cells(2, 1).Value
stickers(2) = Cells(2, 2).Value
stickers(3) = Cells(2, 3).Value
MsgBox (stickers(1) & Chr(10) & stickers(2) & Chr(10) & stickers(3))
UserForm1.Show
End Sub

Sub Spread(stickers())
Sheets(2).Select
Cells(2, 1).Value = stickers(1)
Cells(2, 2).Value = stickers(2)
Cells(2, 3).Value = stickers(3)
End Sub


Private Sub CommandButton1_Click()
Call Spread(stickers())
End Sub


So, the question. How can I call the sub Spread?

 

[Andrew Poulsom]

Welcome to MrExcel.

You need to declare stickers as Public at the top of the module so that it is visible to other procedures/modules. Be sure to remove the declaration from your Archive procedure.

 

[Kifsif]

Public stickers(3) As String
Sub Archive()
stickers(1) = Cells(2, 1).Value
stickers(2) = Cells(2, 2).Value
stickers(3) = Cells(2, 3).Value

MsgBox (stickers(1) & Chr(10) & stickers(2) & Chr(10) & stickers(3))

UserForm1.Show

End Sub


Sub Spread(stickers())
Sheets(2).Select
Cells(2, 1).Value = stickers(1)
Cells(2, 2).Value = stickers(2)
Cells(2, 3).Value = stickers(3)

End Sub



Will yo be so kind as to help me elaborate the private sub code?

 

[Andrew Poulsom]

Where is the code in your last post?