プログラムをジャンプさせる。
　　　　
　　　　If Worksheets("Check") .Range("C43") .Value = 0 Then
　　　　　　　　GoTo Jump　　　　　　　　　　　　　' Jump はジャンプさせる場所の名前で、同じ名前で
　　　　　　　　　　　　　　　　　　　　　　　　　　 ' 無ければ何を使っても良い。この構文で下の Jumpへ
　　　　　　　　　　　　　　　　　　　　　　　　　　 ' 実行がジャンプする。
　　　　End If


　 Jump :　　　　　　　　　　　　　　　　　　　　　 ' この構文は行の一番左に記入して、コロンを右に書く。
　　　　Call 自動仕入先更新
　　　　Sheets("仕入") .Select
　
基本的なマクロの習得
Go To の使用


実際に使っているシステムの内容で解説
　　EXCEL VBA 講座