"Sub" がありません。
Sub プロシージャが End Sub ステートメントで終了せずに、End キーワードで終了しています。Sub プロシージャは、必ず End Sub ステートメントで終了します。
このエラーを解決するには
Sub プロシージャを End Sub ステートメントで終了します。
参照
Sub ステートメント | Call ステートメント | Dim ステートメント | Exit ステートメント | Function ステートメント
このブラウザーはサポートされなくなりました。
Microsoft Edge にアップグレードすると、最新の機能、セキュリティ更新プログラム、およびテクニカル サポートを利用できます。
Sub プロシージャが End Sub ステートメントで終了せずに、End キーワードで終了しています。Sub プロシージャは、必ず End Sub ステートメントで終了します。
このエラーを解決するには
Sub プロシージャを End Sub ステートメントで終了します。
Sub ステートメント | Call ステートメント | Dim ステートメント | Exit ステートメント | Function ステートメント