Clear contents on sheets by name

[omairhe]

Peace,

How to clear.contents of each Column G in multiple sheets where the name of sheet is like "simple" (not case sensitive, not an exact match)

will appreciate once acknowledged..

 

[Peter_SSs]

Try

Sub Clear_Column()
  Dim ws As Worksheet
  
  Const ClearCol As String = "G"
  For Each ws In Worksheets
    If LCase(ws.Name) Like "*simple*" Then
      ws.Columns(ClearCol).ClearContents
    End If
  Next ws
End Sub

 

[omairhe]

Thanks Peter..

Try

Sub Clear_Column()
  Dim ws As Worksheet
  
  Const ClearCol As String = "G"
  For Each ws In Worksheets
    If LCase(ws.Name) Like "*simple*" Then
      ws.Columns(ClearCol).ClearContents
    End If
  Next ws
End Sub