looping clearcontents through all worksheets

Hi,

I have a code that aims to clear contents on col F and G, and for sheets that begin with ACD. However when i an the macro it only seems to clear contents on the current sheet that I am on. Thanks in advance to anyone we will be helping me

Sub clearcontents()

Dim S_heet As Worksheet
    For Each S_heet In ActiveWorkbook.Sheets
        If Left(S_heet.Name, 3) = "ACD" Then
            With S_heet
                Columns("F:G").Select
                Selection.clearcontents
            End With
        End If
    Next S_heet


End Sub

When you use a With statement you need to let Excel know that it is working on that sheet or range. Also, you don't need to select. So your code should be

Sub clearcontents()

Dim S_heet As Worksheet
    For Each S_heet In ActiveWorkbook.Sheets
        If Left(S_heet.Name, 3) = "ACD" Then
            With S_heet
                .Columns("F:G").clearcontents
            End With
        End If
    Next S_heet
End Sub

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save