Delete date in 3 sheets once we run the macros

[An Quala]

Hello, can anyone please write me a code which deletes the date in the 3 sheets present in same workbook, the sheet names are "Sheet1", "Sheet2" and "Sheet3". Please note that only data needs to be deleted, not the sheets themselves.

Thank you.

 

[Herakles]

Do you want to leave formatting, comments, hyperlinks, notes and outlines on the sheets?

This code will just remove the contents.

Test it a copy of your data.

Private Sub subClearContentsFromSheets()
Dim i As Integer

    For i = 1 to 3
        Worksheets("Sheet" & i).Cells.ClearContents
    Next i
    
End Sub

This code will clear everything.

Private Sub subClearAllSheets()
Dim i As Integer

    For i = 1 to 3
        Worksheets("Sheet" & i).Cells.Clear
    Next i
    
End Sub

 

[An Quala]

Private Sub subClearAllSheets() Dim i As Integer For i = 1 to 3 Worksheets("Sheet" & i).Cells.Clear Next i End Sub

Thank you, one issue is that I used the name of the sheets as an example because they changes with time as well, and I am able to change them myself, but here in your code, I could not do it. The name of the sheets could be "Sponsored Product Campaigns", "Sponsored Brands Campaigns" and "Sponsored Display Campaigns", can you please update the code 2 accordingly?

Do you want to leave formatting, comments, hyperlinks, notes and outlines on the sheets?

Yes, I need to erase everything including formatting.

Thank you @Herakles

 

[Herakles]

This will do it.

If I was doing this I would have a Yes/No prompt before the sheets were cleared.
I'd maybe even copy the sheets to another workbook first.

Private Sub subClearAllFromSheets()
Dim i As Integer
Dim strSheets As String
Dim arr() As String
    
    ' Sheet names are seperated by a comma.
    strSheets = "Sponsored Product Campaigns,Sponsored Brands Campaigns,Sponsored Display Campaigns"

    arr = Split(strSheets, ",")
    
    For i = LBound(arr) To UBound(arr)
        Worksheets(arr(i)).Cells.Clear
    Next i
    
End Sub

 

[An Quala]

Runtime error 9 on this line.

Please check.

Worksheets(arr(i)).Cells.Clear

 

[Herakles]

Has it cleared any of the sheets?

 

[An Quala]

Has it cleared any of the sheets?

When runnning the macro directly, it did not clear any sheet and gave the error. But when I try to debug the code and did it step by step with F8, it cleared all 3 sheets but still goes on and on in loop, and I think this was the problem with runtimeerror 9.

 

[An Quala]

Has it cleared any of the sheets?

I think it is working now by itself, just let me double check it real quick.

 

[Herakles]

That is weird.

The Split function should only create an array of 3 elements.

The loop should just cover the first through to the last of these.

 

[An Quala]

That is weird.

The Split function should only create an array of 3 elements.

The loop should just cover the first through to the last of these.

It is working perfectly, exactly as I needed.

Thank you very much for the quick help!