시트병합 할때의 시트이름

'For Each WS In WB.Worksheets
'If WS.Name = "시트병합" Then MsgBox "시트병합 시트가 존재합니다. 시트병합 시트의 이름을 변경하시거나 삭제하신 뒤 다시 '실행해주세요.": Exit Sub
'Next

Set newWS = WB.Worksheets("시트병합")
newWS.UsedRange.Delete

이렇게 입력해보세요

코드 전체가 나오지 않아 어떤의도인지는 정확하게 모르겠지만, 다음코드를 참조하세요.
시트병합시트가 있는 경우 어떤 것도 실행하지 않고, 없으면 시트가 생성됨.

Sub ddd()
Dim WB As Workbook
Dim WS As Worksheet, newWS As Worksheet
Set WB = ThisWorkbook

Dim ShtBoolean As Boolean
ShtBoolean = False

For Each WS In WB.Worksheets
If WS.Name = "시트병합" Then
ShtBoolean = True '시트병합이 있을 경우 true로 변환
End If
Next
If ShtBoolean = False Then '시트통합이 없으면 시트병합시트를 추가
Set newWS = WB.Worksheets.Add(before:=WB.Worksheets(1))
newWS.Name = "시트병합"
End If

End Sub

Option Explicit

Private Sub btnSubmit_Click()

Dim WB As Workbook

Dim WS As Worksheet: Dim newWS As Worksheet

Dim Rng As Range

Dim i As Long: Dim j As Long: j = 2

Dim endCol As Long: Dim endRow As Long

Set WB = ThisWorkbook

If isListBoxSelected(Me.lstSheet) = False Then MsgBox “시트를 선택하세요”: Exit Sub

For Each WS In WB.Worksheets

    If WS.Name = “”시트병합 Then 

    MsgBox "시트병합 시트가 존재합니다. 시트병합 시트의 이름을 변경하시거나 삭제하신 뒤 다시 '실행해주세요.": Exit Sub

Next

Set newWS = WB.Worksheets.Add(before:=WB.Worksheets(1))

newWS.Name = “시트병합”

With newWS

    .Cells(1, 1) = “No1”

    .Cells(1, 2) = “No2”

    .Cells(1, 3) = “No3”

    .Cells(1, 21) = “No21”

End With

For i = 0 To Me.lstSheet.ListCount - 1

    If Me.lstSheet.Selected(i) = True Then

          MsgBox Me.lstSheet.List(i)

        Set WS = WB.Worksheets(Me.lstSheet.List(i))

        With WS

            endRow = .Cells(.Rows.Count, 1).End(xlUp).Row

            endCol = 21

            Set Rng = .Range(.Cells(5, 1), .Cells(endRow, endCol))

            Rng.Copy newWS.Cells(j, 1)

            j = j + Rng.Rows.Count

        End With

    End If

Next

MsgBox “시트가 병합 되었습니다”

Unload Me

End Sub

위와 같은 내용으로 5개의 시트를 병합해서 하나의 시트로 만든후에
피벗테이블을 이용해서 취합된 데이터를 분석 하려고 하는데
항상 새로운 병합 시트가 만들어지다기 보다 덮어 쓰기가 되면
많은 도움이 될것 같아 도움을 요청 드립니다.