[[20190913092214]]　『指定範囲の全ての数値が6以下なら　という処理をａx（なのれい）　ページの最後に飛ぶ

『指定範囲の全ての数値が6以下なら　という処理をしたいです』（なのれい）

いつもお世話になっております。

指定範囲の全てが6以下なら処理を終了させたいです。
今現在出来ているコードを載せますのでアドバイス頂けないでしょうか？

Sub sample()

  Dim MaxRow As Long

  MaxRow = Range("C6").End(xlDown).Row

  Do
    Call ○○
   Call ○○

    If  Then Exit Do
  Loop
End Sub

下から3行目のif分の所で困っております。

詳細としましては
Cells(7, 41)からCells(7, MaxRow )
に入ってる全ての数値が6以下になるまでループかけたいです。

皆様よろしくお願いいたします。

＜使用 Excel：Excel2013、使用 OS：Windows10 ＞

 WorksheetFunction.Max で範囲の最大値が
 6以下になったらExitするような書き方をすりとか？
（seiya） 2019/09/13(金) 10:37

なるほど！
出来そうですね！

やってみます。ありがとうございます。
（なのれい） 2019/09/13(金) 10:45

出来ました。ありがとうございます。
（なのれい） 2019/09/13(金) 11:07

コメント返信：