=========================== 1 - 1 ========================================

Dim currentWindowCaption As String

Sub 입력작업()

currentWindowCaption = ActiveWindow.Caption

    Sheets("매출표").Select
    
    Application.Goto Sheets("매출표").Range("B" & Sheets("매출표").Range("B65536").End(xlUp).Row + 1)
    
    mcInputForm.Show
    
    mcInputForm.Top = 0
    mcInputForm.Left = 350

매출표문서인지확인하기2 (currentWindowCaption) '******************************** 매출표문서인지확인하기

End Sub

=========================== 1 - 2 ========================================

Sub 매출표문서인지확인하기2(ByVal currentWindowCaption As String)

    On Error GoTo a:
    
    Windows(currentWindowCaption).Activate


        If (0) Then
a:          End
        End If
        
End Sub

=========================== 2 - 1 ========================================

Private Sub mc제품필터링하기(ByVal 필터링할제품명 As String)
    매출표보기 (1)
    Range("B2").Select
    Selection.AutoFilter Field:=3, Criteria1:=mcCombo1
스크롤업하기
End Sub

=========================== 2 - 1 ========================================

Sub 매출표보기(ByVal View_type As Integer)

매출표문서인지확인하기1 '******************************** 매출표문서인지확인하기

    On Error GoTo MC_error:

If (View_type <> 1) Then

    입력창숨기기    '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
    
Else

    Application.Goto Sheets("매출표").Range("B" & Sheets("매출표").Range("B65536").End(xlUp).Row + 1)
End If
    
    
        If (0) Then
MC_error:   MsgBox "에라났음ㅠ_ㅠ매출표보기에서", , "에라 창"
        End If
        
End Sub