매크로 버퍼링 줄이기....질문

[은하수.]

* 버튼 사용하여 매크로 실행 하면 버퍼링이 1분정도소요 --- 1. D: 필요경비 폴더 저장
                                                                                            2.  쉬트7에  자료 입력
                                                                                            3. 인쇄미리보기

Sub Macro1()
Dim strFile As String
Dim s As Worksheet
Application.DisplayAlerts = False
With Worksheets(2)
strFile = "D:\필요경비\" & .Range("B4") & "-" & .Range("B3").Value & ".xlsx"
End With
Sheets("월정산서").Copy
Worksheets(1).UsedRange.Value = Worksheets(1).UsedRange.Value
Application.Dialogs(xlDialogSaveAs).Show strFile
ActiveWorkbook.Close
Application.DisplayAlerts = True

    With Sheet7.Range("A65536").End(xlUp).Offset(1, 0)
.Offset(0, 0) = Range("b4")
.Offset(0, 1) = Range("b3")
.Offset(0, 2) = Range("M75")
.Offset(0, 3) = Range("n75")
.Offset(0, 4) = Range("o75")
.Offset(0, 5) = Range("q75")
.Offset(0, 6) = Range("r75")
.Offset(0, 7) = Range("s75")
.Offset(0, 8) = Range("t75")

Worksheets("월정산서").PrintPreview

End With
End Sub

[멍청이]

눈독만 디림니다.ㅋㅋ

[nadia]

메크로는 참 어렵네요

[개악당]

으허 ㅎ