Subscript out of range error

Private Sub sendemail(esubj)

    ROW_BEGIN = 1
    ROW_END = 72

    Sheets("Input").Select
    Range("A" & ROW_BEGIN & ":S" & ROW_END).Select
    Range("A" & ROW_BEGIN).Select

    fileL = "\\fire\school\FINANCE\Report\FY10\Ke开发者_开发知识库y Indicator\"
    fileL = fileL & (Left(Range("I7"), 3)) & Right(Year(Date), 2)
    fileL = fileL & "\Key Report - " & myfdate & ".xls"

I have a workbook with a spreadsheet tab named Input. When I try to run it, I get the Subscript out of range message. Why cant it pull from the Input spreadsheet??

Why are you performing all the Selects?

What line does the code fail at?