A cursory look suggests that all you need to do is put a , in front of the
31
Sheets("Attendance1").Cells(30, "h").Resize(,31).Value = _
Sheets("Lunch and Attendance").Cells(7, "ad").Resize(,31).Value



--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Preschool Mike" wrote in message
...
I need to change this code so it collects the information from the row and
place it in the appropriate row. As it is written now it is doing the
opposite - collecting the information from the column down and placing it
in
another column down.

Specifically it needs to: Collect infor from Sheets(Lunch and Attendance,
cells AD7 thru BH7) and place it in Sheets (Attendance1, cells H30 thru AL
30) if the current month in Sheets (Lunch and Attendance, cell AF4) is
August. If the month would be September then it will do the same except
collect and store the information in the rows below August and so fourth.

Here's my current code:
Sub EnterYearlyAttendanceRecord()
Select Case LCase(Range("'Lunch and Attendance'!AF4"))
Case "august" 'type month in lower case
Case "september"
Case "october"
Case Else
End Select
'August
Sheets("Attendance1").Cells(30, "h").Resize(31).Value = _
Sheets("Lunch and Attendance").Cells(7, "ad").Resize(31).Value
End Sub

--
Mike Mast
Special Education Preschool Teacher