Excel-VBA Call文での変数渡し

ExcelVBAでのCall文での変数の引き渡し

Call文を呼び出す場合、（）内に変数を指定して渡さないと、引き継ぎが
出来ません。プログラムの素養があればわかることですが、初めての方には
理解出来ない部分です。

以下　Source

Loopの中で、Graph()をCallしています、この時Sheet名を渡しています。
Sourceは2つあり、後半が呼び出される部分です。

Sub CREATE_Graph()
'
' CREATE_Graph Macro

Dim i As Long

Dim She_nam As String

Application.ScreenUpdating = False

For i = 1 To 31

Sheets("SKD1-A").Select

Range(Cells(7, i + 2), Cells(56, i + 2)).Select

Selection.Copy

If i 40 Then
Xe_n = 40 '24時以降は24時に
End If

'Debug.Print Haji_n
'Debug.Print Haji_n - 8

'Debug.Print Naga_n
'Debug.Print Naga_n + Haji_n
'Debug.Print Naga_n + Haji_n - 8

'Debug.Print Y_n
'Debug.Print X_n
'Debug.Print Xe_n

''------------------------------------------------
'勤務時間横グラフ作成

Cells(Y_n, X_n) = Naga_n / 2 '勤務時間を先頭に記入

Range(Cells(Y_n, X_n), Cells(Y_n, Xe_n - 1)).Select

With Selection.Interior

.Pattern = xlSolid
.PatternColorIndex = xlAutomatic

' .Color = 5296274

' .ColorIndex = 42

' Debug.Print Haji_n

Select Case Haji_n '勤務開始時刻で色を決める

Case Is 35

.ColorIndex = 26

Case Else

.ColorIndex = 3

End Select

.TintAndShade = 0
.PatternTintAndShade = 0

End With
'------------------------------------------

Continue:

Next

End Sub

わかお　かずまさ

VegaSystems