VBA工作簿循环

Sub shaixuan()
Dim wkst As Worksheet
For Each wkst In ActiveWorkbook.Sheets
For i = 2 To 26
If Cells(38, i) = 1.3 Or Cells(38, i) = 1.5 Then
Columns(i).EntireColumn.Interior.Color = 3
End If
Next
Next wkst
End Sub
为什么不能实现在workbook内循环呢

少贴了一行
Sub shaixuan()
Dim wkst As Worksheet
Dim i As Integer
For Each wkst In ActiveWorkbook.Sheets
For i = 2 To 26
If Cells(38, i) = 1.3 Or Cells(38, i) = 1.5 Then
Columns(i).EntireColumn.Interior.Color = 3
End If
Next i
Next wkst
End Sub

Sub shaixuan()
Dim wkst As Worksheet
Dim i As Integer
For Each wkst In ActiveWorkbook.Sheets
For i = 2 To 26
If wkst.Cells(38, i) = 1.3 Or wkst.Cells(38, i) = 1.5 Then
wkst.Columns(i).EntireColumn.Interior.Color = 3
End If
Next i
Next wkst
End Sub