you don't tell excel which array value in temparray to use try that
for instance
dateStr = "1/" & temparray(j-1)
'would give you last value assigned to the temparry
also try maybe
dateStr = "1/" + trim(str(temparray))
--
When you lose your mind, you free your life.


"Monique" wrote:

I keep receiving a type mismatch error at the datestr location. I'm not sure
why.

If anyone could assist... thanks

Private Sub GetDate(DateRange As String, cellSrc As String, cellStart As
Range)

Dim setDate As Integer
Dim j As Integer
Dim myRange As Range
Dim dateStr As String
Dim temparray() As Integer
Dim CellsAcross As Integer

CellsAcross = cellSrc

ReDim temparray(0 To CellsAcross)

Set myRange = cellStart.Range(Cells(1, 1), Cells(1, CellsAcross))

setDate = Year(DateRange)

For j = 1 To CellsAcross

temparray(j) = setDate + 1
setDate = setDate + 1

Next j

dateStr = "1/" & temparray
myRange.value = dateStr

End Sub