求助

apple8990

运行错误，424，要求对象
不知道哪里出问题了，代码是下载的，按说不会错啊
程序码
Sub test8()
Dim sh As Worksheet
Set sh = activeworbook.Sheets(1)
'Do
For Each sh In ActiveWorkbook
If sh.Name = "Sheet1" Then
sh.Range("A1").Value = "HaHa"
Exit For

End If
Next
'Loop
Sheets("sheet1").Select

ActiveSheet.Range("A1").Value = "Hello"
'在当前活动sheet前添加一个新sheet
ActiveWorkbook.Worksheets.Add ActiveSheet
'新sheet会成为活动sheet,给它一个名字
ActiveSheet.Name = "New sheet1"
ActiveWorkbook.Worksheets.Add ActiveSheet
ActiveSheet.Name = "New sheet2"
'因为删除sheet会弹出警告消息，所以先禁止警告消息
Application.DisplayAlerts = False
ActiveWorkbook.Worksheets(2).Delete
'恢复警告消息
Application.DisplayAlerts = True

End Sub

周总

1，兄弟，你仔细检查啊，那么明显  Set sh = activeworbook.Sheets(1)  自己看看workbook是不是少了个K2，For Each sh In ActiveWorkbook   变量 sh你声明是个sheet，怎么跑book里面循环去了？ 改为：For Each sh In ActiveWorkbook.Sheets
3。你确定你是拷贝的？不是你自己写的？OK