セルを見つけてアクティブなセルを作り直してください

Question

スタートアップ時に実行するこの簡単なコードを持っていますが、実際のセルをActiveCellで現在のセルにして "Call"を実行する必要はありませんActiveCellを入力し、次の「真の」検索に移動してActiveCellとし、処理を繰り返します。

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

問題は、それがすべての「真」の値を見つけたが、現在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 

私は私の携帯電話のように私はこれをテストできません。