'Now copy appt info into each row in array
Do 'do--
vCol = Weekday(vDate, conFirstDay) - 1 'calc column No for current date
vRow = (DateDiff("d", vFirstDate, vDate) \ 7) 'calc row number for current date
If conMonthHide = 0 Then 'if current date <> current month then skip *** (hide appts for dates not in current month)
'MajP add location
vArray(vCol, vRow) = vArray(vCol, vRow) _
& Nz(rst!ApptSubject) & " (" & Nz(rst!apptLocation, "") & ")" & vbCrLf 'add appt data to array + CRLF
Else
If Month(vMonthStart) = Month(vDate) Then 'if current date <> current month then skip *** (hide appts for dates not in current month)
' MajP add location
vArray(vCol, vRow) = vArray(vCol, vRow) _
& Nz(rst!ApptSubject) & " (" & Nz(rst!apptLocation, "") & ")" & vbCrLf 'add appt data to array + CRLF
End If
End If