Try this:

Private Sub CommandButton1_Click()

myArr = Array(1, 3, 11, 12, 30, 40, 99)

For i = 1 To 7
For j = 0 To UBound(myArr) - 1
Cells(myArr(j), "a") = "testing"
Next
Next
End Sub


Mangesh


--
mangesh_yadav
------------------------------------------------------------------------
mangesh_yadav's Profile: http://www.excelforum.com/member.php...o&userid=10470
View this thread: http://www.excelforum.com/showthread...hreadid=378912