VBA代码删除

我试图写入一个用户窗体中的button来清除单元格，如果它小于1％

Range("G9:G28").Select Selection.ClearContents if range("g9:g28) < 0 

这可能是非常错误的

Answer 1

 dim c as range for each c in activesheet.range("G9:G28") if c.value < 0 then c.clearcontents next