VBA Do Until Loopでエラー
VBAは全くの素人です。
マクロの記録とInterNetでVBAコードを探し、下記のように記しました。
VBAのデバッグ＆ステップインで（動作）確認するのですが、素人の悲しさか、Do Until IF の行で「コンパイル＆構文エラー」に引っ掛かり先に進めません。
どの様に修正したらよいのかnetを探すのですが見つかりません。(探し方が足りない？)
コードの右側に ‘‥‥やりたい事のコメントを記しています。
どの様にコードを修正したらよいのか、ご指導願えませんでしょうか？。
他の部分についてもご指導頂けると助かります。
Sub 練習1()
Dim i As Integer '‥‥変数(繰り返し回数のカウント) iを宣言
i = 0 '‥‥変数iをﾘｾｯﾄ(0)にする(繰り返し回数のカウント)
Range("$F$8").Select
ActiveCell.FormulaR1C1 = 0 '‥‥F8をﾘｾｯﾄ(0)にする
Dim waittime As Variant '‥‥待ち時間設定宣言
waittime = Now + TimeValue("0:00:10") '‥‥待ち時間10秒に設定
Do Until If Range("$G$8").Value = "Out" Then '‥‥「Goodになるまで繰り返しなさい」
Calculate ‘‥‥繰り返し計算せよ
Else: Range("$G$8").Value = "Good" ‘‥‥Goodになれば繰り返し(Loop)完了
IF Range("$G$8").Value = Interior.colorIndex = 36
'‥‥$G$8が"Good"ならばセル色を36にする
'尚、G8セルの計算式は=IF(AND($I$25="OK",$I$26="OK",$I$27="OK"，$I$28="OK",$I$29="OK"),"Good","Out")
Range("F8").Select
ActiveCell.FormulaR1C1 i = i + 1 '‥‥変数iを1増やす(繰り返し回数のカウント)
waittime = Now + TimeValue("0:00:10") '‥‥待ち時間10秒に設定
End If
Calculate
Loop '‥‥G8が”Good” になればVBA終了 Range("G8").Select
End Sub
お礼
ありがとうございます。