"With" がありません。

With ブロックが End With ステートメントで終了せずに、End キーワードで終了しています。With ブロックは、必ず、対応する End With ステートメントで終了します。With ブロックの正しい使用例を次に示します。

With object
   statements
End With

このエラーを解決するには

• With ブロックをキーワード End で終了している場合は、End With ステートメントに変更します。
• With 制御構造に必要なすべての要素が含まれていることを確認します。

参照

制御ステートメントの使用 | With ステートメント | Set ステートメント | If...Then...Else ステートメント | Select Case ステートメント