VBAで２つのプロシージャーをつなげるには

質問

VBAでSub ～　End Subまで書き終えて、一つのプロシジャーを完成させたあと、
その下に、もう一つのプロシジャーを作り、連続してマクロを動かしたいと思ってます。

例に例えると、

Sub test()
Dim MyRange As Range
Set MyRange = Columns("c").Find(What:="﨑")
If MyRange Is Nothing Then
Debug.Print "環境依存文字ははみつかりません"
Else
MyRange.Font.ColorIndex = 3
　End If

Dim MyCells As Range
Set MyCells = Columns("c").Find(What:="髙")
If MyCells Is Nothing Then
Debug.Print "環境依存文字ははみつかりません"
Else
MyCells.Font.ColorIndex = 3
End If
End Sub

　　Sub sample()
　　 Dim i As Long
　　For i = 1 To Cells(Rows.Count, "I").End(xlUp).Row
　　 If InStr(1, Cells(i, "I"), "VBA", vbTextCompare) > 0 Then
　　Cells(i, "M") = "YES"
　　End If
　　Next
　　End Sub

上記のような２つのマクロをつなげて１つの実家行えるようにするにはどうしたらよろしいのでしょうか。
どうしても実行時に上のマクロと下のマクロが別々に表示されてしまします。
（ちなみに、上側のマクロは環境依存文字を探すマクロ、下側はVBAの文字を見つけ出すマクロです。）

どなたかご存知の方いらっしゃいましたら、教えて頂けないでしょうか。
よろしくお願い致します。

回答No.2

bardfish · ベストアンサー

まず、VBAの基本ルールを理解してください。

Sub～End Subまでがひとつのプロシージャです。

End Sub　のあとにSubがあればSubからは新しいプロシージャになってしまいます。
これはどんに状況でも【絶対】です。

だから、貴方が記述したサンプルコードだとtest()とsample()が独立して当たり前。

この2つを連続して実行したければ#1さんの回答もひとつの方法ですが次のようなことも可能です。

Sub Exsample()
　　Call test()
　　Call sample()
End Sub
こういう作りにしておけばtest()とsample()というプロシージャを別の目的で独立させて実行することが可能になります。
そういう利用用途が全くないのならプロシージャに分ける必然性なんてないんですけどね。

お礼

とても分かりやすいご回答ありがとうございます。
Callなら聞いたことがありますので、なんとなくできそうです。
ありがとうございました<m(__)m>

回答No.1

11zep

サブプロシージャから別のサブプロシージャを呼び出せばいいと思います。

Sub test()
省略
Call sample
End Sub

>どうしても実行時に上のマクロと下のマクロが別々に表示されてしまします。
Private Sub sample()
上の様に修正すれば実行時に表示されないと思います。
Excel2007で試してみました。
参考になれば幸いです。

お礼

ありがとうございます<m(__)m>
bardfishさんのご回答とともに参考にさせて頂きました。