关于下标越界的办法，求大神相助

Sub A()
Dim wk As Workbook
For Each wk In Application.Workbooks
wk.Activate
ActiveWorkbook.Sheets(2).Activate
Range("D5").Value = 10
wk.Save
Next wk
End Sub
哪个大神运行下这个代码，帮我看看问题所在

Sub A()
Dim wk As Workbook
For Each wk In Application.Workbooks
if wk.worksheets.count>=2 then wk.worksheets(2).Range("D5").Value = 10
wk.Save
Next wk
End Sub