工作表格名称显示VBA

nnsea

Private Sub Worksheet_Activate()
For Each sht In Sheets
    If sht.Name <> "全年月份" Then
        k = k + 1
        Sheets("全年月份").Cells(k, 1) = sht.Name
    End If
Next
End Sub