Sub 자동요약()

    Dim 선택범위 As Range
    Dim 합계 As Single

    With Sheets("대화 상자1")
    
        If .EditBoxes(1).Text <> "" Then
        
            Set 선택범위 = Range(.EditBoxes(1).Text)
            
            합계 = WorksheetFunction.Sum(선택범위)
        
            .Labels(2).Caption = "합계 : " & Format(합계, "#,###")
        
        End If
    
    End With

End Sub