find细胞，使活动细胞重复

我有这个简单的代码在启动时运行，它工作正常，除了我需要它使用ActiveCell “真正”的声明当前创build的单元，并运行该“ ActiveCell ”的“调用”，然后移动到下一个“真”find并制作ActiveCell并重复这个过程。

 For Each c In sheet1.Range("AU5:AU1000") If c.value = True Then Call startup.VALUES End If Next c 

问题是它find了所有的“真实”值，但重复当前的ActiveCell的过程

Answer 1

如果“真”是单元格的值，你是否试图发送“真”到子“启动”？

 Dim rng As Range, c As Range Set rng = Worksheets("Sheet1").Range("AU5:AU1000") For Each c in rng If c.value = True Then valToSend = c.value Call startup(valToSend) End If Next c 

我无法testing，因为我在我的手机上。