Forum Discussion

JoAvg's avatar
JoAvg
Brass Contributor
Jan 22, 2023
Solved

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's avatar
    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's avatar
    JoAvg
    Brass Contributor
    Jan 22, 2023

    HansVogelaar

     

    Shapes will be in sheet As_Built 

    • HansVogelaar's avatar
      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

Resources