求教，用变量识别工作表名并对应输入

高手们，是这样的，假如我在D盘下有和个文件，D:\aa.xls
这个文件里面有三个工作表，分别命名“2011.8”，“2011.9”，“2011.10”，现在系统时间是2011-8-4
我要遍历工作表名，然后再对应地输入进去，假如今天是2011-9-1日期，那么我想在2011.9工作表下输入我想要的数据
我是用VB写的代码，但不能通过哦
部分代码：
------------------------------------------------------
Public app As Excel.Application
Public xlbook As Excel.Workbook
Public xlsheet As Excel.Worksheet

Dim shname As String
shname = Year(Now) & "." & Month(Now)

Set app = CreateObject("excel.application")
Set xlbook = app.Workbooks.Open("d:\aa.xls")
app.Visible = False
For Each xlsheet In app.Sheets
If xlsheet.Name = shname Then
   Set xlsheet = app.Worksheets(shname)
   End If
Next

也就是说，我想根据系统时间判断工作表名称，再在相应的工作表里输入数据
但是问题现在出在“Set xlsheet = app.Worksheets(shname)”这里了，如果指定工作表的话，是用“Set xlsheet = app.Worksheets("2011.8")”的格式，但现在我想用变量，怎么实现呀？
多谢指教！

哦，我自己搞出来了，是要加一个激活命令，我说呢，呵呵
xlsheet.activate

试试
    On Error Resume Next
    Set xlsheet = xlbook.Worksheets(shname)
    If Not xlsheet Is Nothing Then xlsheet.Cells(1, 1) = "aaa"
    xlbook.Close True