存在しないシート名を検出すると repeat ループを抜けて外側の on error ブロックに入るというエ ラー処理を行っているため,repeat ステートメント内に while や until のような条件は必要ありま せん.同様に,どの if ブロック内にも exit repeat は必要ありません.毎回必ず on error ブロ...
With Range("a1:a500") Set c = .Find("To Test", LookIn:=xlValues) If Not c Is Nothing Then firstaddress = c.Address Do c.Value = "Passed" Set c = .FindNext(c) Loop While Not c Is Nothing And c.Address <> firstaddress End If End With...