Sub CreateTimeSheets()

Dim myRange As Range

Sheets("Staff_List").Select
Range("A1").Select
Set myRange = ActiveCell.CurrentRegion
LastRow = myRange.Cells(myRange.Cells.Count).Row

For i = 1 To LastRow

' put in here whatever it is you want to do with each name on your
list

Next i


End Sub


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/