code for a sheet name

[dennisli]

Good afternoon,
The first code got the value 2012. And I want to use this value 2012 to refer an existing sheet named 2012 to get its last row.
But it did not work.
Appreciate your help.
DL

CurrentYear = Year(Worksheets("Data").Cells(5, 1))
CYSheet = Worksheets(CurrentYear).Name
CYLastRow = Worksheets(CYSheet).Cells(Rows.Count, 1).End(xlUp).Row

 

[Jonmo1]

Can you define "Did not work" ??
Did you get an error? What error?
Did you get the wrong result? What result DID you get, and What result did you expect?

My 'Guess' is that the CurrentYear variable is a NUMERIC value
When you use Sheets(somenumber) it's looking for a sheet with that INDEX #.
So it would be looking for the 2 thousand 12th Sheet in the book, not a sheet 'Named' 2012.

try adding this at the top of your code

Dim CurrentYear As String

 

[dennisli]

thanks