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\Key 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 Select
s?
What line does the code fail at?
The technical post webpages of this site follow the CC BY-SA 4.0 protocol. If you need to reprint, please indicate the site URL or the original address.Any question please contact:yoyou2525@163.com.