I have a workbook with several worksheets -- STATS, 2005, 2006,...2009

The STATS worksheet has stat info for each year worksheet. The info in
STATS is displayed vertically with the year indicated in column A

I have a commandbutton in each year worksheet (2005 - 2009) with caption
STATS. Also in each year worksheet, the year (for that worksheet) is in
cell A1.

I would like a macro for the STATS commandbutton that will get the year in
cell A1, look in the STATS worksheet in column A and find that same year,
then goto that year so that I do not have to scroll down in STATS to find the
section pertaining to the year worksheet. Below is code that both I have
entered and have also obtained from this forum. However, I cannot get it to
work.

Private Sub CommandButton16_Click() 'STATS button
Dim buttoncaption As String
Dim yr As String
buttoncaption = CommandButton16.Caption
yr = Range("A1").Value
lr = Sheets("STATS").Cells(Rows.Count, 1).End(xlUp).Row
Application.Goto Reference:=Worksheets(buttoncaption).Range("A1")
Set c = Worksheets("STATS").Range("A2:A" & lr).Find(yr, LookIn:=xlValues)
If Not c Is Nothing Then
Sheets("STATS").Activate
c.EntireRow.Select
End If
End Sub

I appreciate any help with this!

Thanks,
Les