値を渡したい！

 'Tenmeiを渡して売上表作成　Tenmeiは実引数　
    Call Uriage_Keisan(Tenmei)

’TenmeiをMisemeiとして受け取る　Misemeiは仮引数
Sub Uriage_Keisan(Misemei As String)

Sub Tenmei_Select()

    Dim Tenmei As String
    Tenmei = Range("c3")
    
    'Tenmeiを渡して売上表作成
    Call uriage_keisan6(Tenmei)

End Sub

'Uriage_Keisan5をWithステートメントを使って
Sub uriage_keisan6(Tenmei As String)

Dim i As Long   '売上データの行数
Dim j As Long   '作成する売上表の行数
Dim k As Long   '売上の項目の位置(列)

With Worksheets("売上明細")
    j = 5
    For i = 3 To .Cells(Rows.Count, 3).End(xlUp).Row
        
        If .Cells(i, 3) = Tenmei Then       '店名がTenmeiかどうか
              
            '売上表に転記
            For k = 4 To 7
                Worksheets(Tenmei).Cells(j, k - 2) = .Cells(i, k)    '商品名～金額
            Next k
            j = j + 1 '次に作成する売上表の行数の計算
            
        End If
    Next i
End With

End Sub

Sub Tenmei_Select()

　　Dim Tenmei As String
　　Tenmei = Range("c3")

　　Call Tenmei_Filter(Tenmei)

End Sub

Sub Tenmei_Filter(Tenmei As String)
　　Dim Gyo As Long

　　With Worksheets("売上明細")

    　　'売上明細データの２列目の店名をTenmeiで抽出する   
    　　.Range("B2").AutoFilter Field:=2, Criteria1:=Tenmei
    
    　　'フィルターをかけたデータの行数
   　　 Gyo = .Cells(Rows.Count, 3).End(xlUp).Row
    
    　　'店名と見出しはいらない　ｄ３セルからｇ列の最終行までコピー
    　　.Range(.Range("d3"), .Cells(Gyo, 7)).Copy
    
    　　'店名シートのｂ５セルに値のみ貼付け
    　　Worksheets(Tenmei).Range("b5").PasteSpecial Paste:=xlPasteValues
    
   　　 'オートフィルターの解除
   　　 .Range("B2").AutoFilter
    
　　End With

　　'店名シートをアクティブにして終わりますね！
　　Worksheets(Tenmei).Activate

End Sub

Sub Tenmei_Select()

    '店名選択フォームの表示
    SentakuForm.Show

End Sub

'Uriage_Keisan5をWithステートメントを使って
Sub uriage_keisan6(Tenmei As String)

　　Dim i As Long   '売上データの行数
　　Dim j As Long   '作成する売上表の行数
　　Dim k As Long   '売上の項目の位置(列)

　　With Worksheets("売上明細")
   　　 j = 5
    　　For i = 3 To .Cells(Rows.Count, 3).End(xlUp).Row
      　　       
      　　  If .Cells(i, 3) = Tenmei Then       '店名がTenmeiかどうか
              
         　　   '売上表に転記
         　　   For k = 4 To 7
        　　        Worksheets(Tenmei).Cells(j, k - 2) = .Cells(i, k)    '商品名～金額
         　　   Next k
           　　 j = j + 1 '次に作成する売上表の行数の計算
            
        　　End If
   　　 Next i
　　End With

End Sub

Sub Tenmei_Filter(Tenmei As String)

　　Dim Gyo As Long

　　With Worksheets("売上明細")

    　　'売上明細データから２列目の店名をTenmeiをキーにしてフィルターをかける    
   　　 .Range("B2").AutoFilter Field:=2, Criteria1:=Tenmei
    
  　　  'フィルターをかけたデータの行数
 　　   Gyo = .Cells(Rows.Count, 3).End(xlUp).Row
    
  　　  '店名と見出しはいらない　ｄ３セルからｇ列の最終行までコピー
  　　  .Range(.Range("d3"), .Cells(Gyo, 7)).Copy
    
   　　 '店名シートのｂ５セルに値のみ貼付け
   　　 Worksheets(Tenmei).Range("b5").PasteSpecial Paste:=xlPasteValues
    
    　　'オートフィルターの解除
   　　 .Range("B2").AutoFilter
    
　　End With

　　'店名シートをアクティブにして終わりますね！
　　Worksheets(Tenmei).Activate

End Sub

Option Explicit
'ユーザーフォームが表示される前に実行される処理
Private Sub UserForm_Initialize()

    'コンボボックスのListに店名を代入
    TenmeiBox.List = Worksheets("店名検索").Range("f3:f7").Value
    
End Sub

'コマンドボタン（OK)が押された時の処理
Private Sub OKbutton_Click()

    'どちらかを呼び出す
    'Call uriage_keisan6(SentakuForm.TenmeiBox.Text)
    Call Tenmei_Filter(SentakuForm.TenmeiBox.Text)
    
    'フォームを閉じる
    Unload Me
    
End Sub

'コンボボックスだけの処理ならこちらでも…
'Private Sub TenmeiBox_Change()

'　　'どちらかを呼び出す
'    Call uriage_keisan6(SentakuForm.TenmeiBox.Text)
'    'Call Tenmei_Filter(SentakuForm.TenmeiBox.Text)

'    'フォームを閉じる
'    Unload Me

'End Sub