Macro to clear contents off of multiple sheets

I am in need of a macro that: 1. Clears contents from multiple sheets: 2. Hides shapes Tick_1,Tick_2,Tick_3,Tick_4,Tick_5,Tick_6 3. Brings up a msg box saying "DATA PURGED" List of desired ...

excel

Macros and VBA

office 365

HansVogelaar

Jan 22, 2023

JoAvg

Sub ClearStuff()
    Dim i As Long
    For i = 1 To 6
        Worksheets("As_Built").Shapes("Tick_" & i).Visible = False
    Next i
    Worksheets("FORMULAS").Range("B2:B5,B7:B8,I1,I5").ClearContents
    Worksheets("LISTS").Range("N2,AJ2").ClearContents
    Worksheets("STASH").Range("B9:G48,L2").ClearContents
    Worksheets("TOMH").Range("G2,I2,K2,M2,O2,Q2,S2,U2,W2,Y2,AW7:BF7").ClearContents
    MsgBox "DATA PURGED", vbInformation
End Sub

JoAvg

Brass Contributor

Jan 22, 2023

HansVogelaar

Shapes will be in sheet As_Built

HansVogelaar

MVP

Jan 22, 2023

JoAvg

Sub ClearStuff()
    Dim i As Long
    For i = 1 To 6
        Worksheets("As_Built").Shapes("Tick_" & i).Visible = False
    Next i
    Worksheets("FORMULAS").Range("B2:B5,B7:B8,I1,I5").ClearContents
    Worksheets("LISTS").Range("N2,AJ2").ClearContents
    Worksheets("STASH").Range("B9:G48,L2").ClearContents
    Worksheets("TOMH").Range("G2,I2,K2,M2,O2,Q2,S2,U2,W2,Y2,AW7:BF7").ClearContents
    MsgBox "DATA PURGED", vbInformation
End Sub

Forum Discussion

Macro to clear contents off of multiple sheets

Resources