シート

Sub シートの存在確認()
    Dim ws As Worksheet
    Dim flag As Boolean
    For Each ws In Worksheets
        If ws.Name = "〇〇" Then
            flag = True
        End If
    Next ws
    If flag Then
        MsgBox "「〇〇」シートあり"
    Else
        MsgBox "「〇〇」シートなし"
    End If
End Sub

Sub シートの存在確認()
    Dim ws As Worksheet
    Dim flag As Boolean
    For Each ws In Worksheets
        If ws.Name = "〇〇" Then
            flag = True
        End If
    Next ws
    If flag Then
        MsgBox "「〇〇」シートあり"
    Else
        MsgBox "「〇〇」シートなし"
    End If
End Sub

' シート存在確認
Public Function ExistsSheet( _
        ByVal sheetName As String, _
        Optional ByVal wb As Workbook = Nothing _
    ) As Boolean
    
    Dim ws As Worksheet
    
    If wb Is Nothing Then Set wb = ThisWorkbook
    
    For Each ws In wb.Worksheets
        If StrComp(ws.Name, sheetName, vbTextCompare) = 0 Then
            ExistsSheet = True
            Exit Function
        End If
    Next
    
    ExistsSheet = False
End Function

' シート存在確認
Public Function ExistsSheet( _
        ByVal sheetName As String, _
        Optional ByVal wb As Workbook = Nothing _
    ) As Boolean
    
    Dim ws As Worksheet
    
    If wb Is Nothing Then Set wb = ThisWorkbook
    
    For Each ws In wb.Worksheets
        If StrComp(ws.Name, sheetName, vbTextCompare) = 0 Then
            ExistsSheet = True
            Exit Function
        End If
    Next
    
    ExistsSheet = False
End Function

'「temp」シートを末尾に移動
  Worksheets("temp").Move after:=Worksheets(Worksheets.Count)

'「abc」シートを削除
  Application.DisplayAlerts = False
  Worksheets("abc").Delete
  Application.DisplayAlerts = True

  'Sheet1シートの前に「data」シートをコピー
  Worksheets("data").Copy Before:=Worksheets("Sheet1")

  'アクティブシートの一つ前にシートを追加
  Worksheets.Add

  '先頭に追加
  Worksheets.Add Before:=Sheets(1)

  '末尾に追加
  Worksheets.Add After:=Sheets(Worksheets.Count)