利用済データの削除とクリアのVBA FAX注文書作成

Option Explicit

Function wb() As Workbook
    Set wb = Workbooks("FAX注文書作成.xlsm")
End Function

Function wsT() As Worksheet
    Set wsT = wb.Worksheets("抽出データ")
End Function

Function wsS() As Worksheet
    Set wsS = wb.Worksheets("出版社リスト")
End Function

Sub 抽出データクリアー()
        With wsT
            .Activate
            .Cells.ClearContents
            .Range("A1").Select
        End With
        Worksheets("操作ボタン").Select
        Range("A1").Select
End Sub

Sub 出版社シートクリアー()
    Dim PrRow, t As Long
    Dim PrV As Variant
        wsS.Activate
        If Range("A1").Value <> "" Then
            PrRow = Cells(Rows.Count, 1).End(xlUp).Row
            For t = PrRow To 1 Step -1
                PrV = wsS.Range("A" & t).Value
                With Worksheets(PrV)
                    .Select
                    Application.DisplayAlerts = False
                    .Delete
                    Application.DisplayAlerts = True
                End With
                wsS.Activate
            Next t
        End If
End Sub

Sub 出版社リストクリアー()
        With wsS
            .Activate
            .Cells.ClearContents
            .Range("A1").Select
        End With
        Worksheets("操作ボタン").Select
        Range("A1").Select
End Sub

Sub ALLクリアー()
        Call Module4.抽出データクリアー
        Call Module4.出版社シートクリアー
        Call Module4.出版社リストクリアー
End Sub