シート

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

'「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)