This loads 26 items from a column into myarray1 (thanks to the posts for
that).

Dim i As Integer
i = 1
For i = 1 To 26

Dim myarray1()
Erase myarray1
myarray1 =
Application.Transpose(ThisWorkbook.Sheets("Dates") .Range("b5:b30"))

My "for next" section adds a page, names if from a similar array using this
function (ActiveSheet.Name = myarrayx(i)), sets margins, print area and then
goes on to add the next 25 pages.

What I need, is to enter the myarray1(i) data (also 26 items) into cell b14
on each page as they are created and formatted in the for next routine. What
is the best (ie most simple code) function to use to accomplish this.

The data I put in my array are dates and I want to retreive them as dates.
If I need to redefine my array for dates please let me know. As you can tell
I am not nearly as accomplished in macro/vba as most people in these forums.

Any suggestions are welcome, if more info is needed from me just ask.

Thanks