엑셀 vba 입력자동화_비우기(

Sub 입력자동화_비우기()

  stname = ActiveSheet.Name

  

  If stname <> "#입력자동화" Then

    MsgBox "#입력자동화" & " 시트에서 실행하세요"

    Exit Sub

  End If

  

'  Range("A6:o1000000").ClearContents

'  Selection.Delete Shift:=xlUp

  Range("A6:z1000000").Delete Shift:=xlUp

  Range("A6").Select

  

End Sub

.