excel2003执行下列程序出错，希望高手指点，小弟第一次写excel宏程序：

Sub 添加小册子单位及转换关系()
    Worksheets("月报出口-2010").Activate     ：可能这列出错！
    With Worksheets("月报出口-2010")
    For i = 2 To 316
        If Left(.cell(i, 4), 2) = "万" Then
           .cell(i, 6) = Mid(.cell(i, 4), 3)
           .cell(i, 7) = .cell(i, 5) / 10000
           .cell(i, 9) = "FLAG"
        Else
           .cell(i, 6) = .cell(i, 4)
           .cell(i, 7) = .cell(i, 5)
        End If
    Next
    End With
End Sub
错误提示：“对像不支持该属性或方法”