小白求救，请问为什么我的For each sht 无法遍历每张表格

初学一周，想尝试将每张表的数据数值化。代码运行后没有报错，但是最后只有打开的那个表格数值化了，其他sheet都没有改变。附上代码。能请各位大哥大嫂看看问题在哪吗？
Sub ss()
Dim sht As Worksheet
For Each sht In ActiveWorkbook.Worksheets
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Next
End Sub
感谢！！！