Change code by code. Can you do that?
Thank you Merjet
"merjet" wrote in message
oups.com...
iYr = Year(Sheets("Sheet1").Range("C16")
If iYr = 2007 Then aCol = "B"
If iYr = 2008 Then aCol = "D"
LastCell = Worksheets("Main").Cells(Rows.Count, aCol).End(xlUp).Row
Merjet
|