プロシージャの呼び出しの分岐について

質問

Excel2000 Win2000でマクロ作成中の超初心者です。
請求書入力マクロですが、修正したいところがあります。
各シートのセルＡ10が、空欄のシートと、"個人"と記入してあるシートが混在しています。
これを、空欄の場合は　Call 作成部品、　個人と記入してあるときは　Call 作成部品2　と分岐して
プロシージャを呼びだししたいのですが、コードをどう修正すればよろしいでしょうか。

修正前のコード

Sub 請求書入力()
Const EXCEPT_NAME = "表紙　印刷"
Application.ScreenUpdating = False
ChDrive ThisWorkbook.Path
ChDir ThisWorkbook.Path

Dim list, SheetName
For Each SheetName In ActiveWorkbook.Worksheets
If InStr(EXCEPT_NAME, SheetName.Name) = 0 Then
Sheets(SheetName.Name).Activate
Call 作成部品
End If
'ActiveSheet.Protect
Next
End Sub

回答No.1

n-jun · ベストアンサー

If InStr(EXCEPT_NAME, SheetName.Name) = 0 Then
Sheets(SheetName.Name).Activate '必要？

Select Case SheetName.Range("A10").Value
Case "個人"
Call 作成部品2
Case Else
Call 作成部品
End Select

End If
とか？

お礼

ああありがとうございました。できました。