请问VBA 的问题.

我有一个VBA 是这样如下...
Private Sub CommandButton2_Click() '列印
   For Each rng In [AM4:AM40]
     If rng > 1 Then
     ActiveSheet.PrintOut
   End If
  Next
End Sub
我是想说 AM4:AM40这范围内的资料如果大於1的话就列印出来...
不知未何在回圈内一直出不来.拼命列印........      
不知代码如何修改

For Each rng In [AM4:AM40]
好像这一行也不对         .
要如何修正............