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