Delete Columns in Multiple Sheets with repeat macro

Hi all -

I'm trying to delete multiple columns which are identical across multiple sheets based on an array which is built using user input.

Through scouring these forums I have gotten this code:

For Each ws In Worksheets
        
    If ws.Name <> "Start" Then
        MsgBox ("executed")
  
  For delColumn = LBound(SelectArray) To UBound(SelectArray)
    On Error Resume Next
    ws.Columns(Application.Match(SelectArray(delColumn), Rows(1), 0)).Delete
    On Error GoTo 0
  Next delColumn
  
    End If
  Next ws

The code executes the number of times that there is sheets (as exhibited by the msgbox) but the columns are only deleted on the first sheet.

What do I need to change?

Thanks in advance for your help.

Hi,

Welcome to the forum

Try something like this...

Sub ClearData()
Dim ws As Worksheet
Dim rRng As Range
Dim addr As String
    Set rRng = Application.InputBox("Select the range to delete across the sheets.", Type:=8)
    addr = rRng.Address
    For Each ws In Worksheets
        If ws.Name <> "Start" Then
            ws.Range(addr).Clear
        End If
    Next ws
End Sub

I could be wrong, but try prefixing the SelectArray with Worksheets("Start").
i'm thinking that you need a reference to the sheet...
For example:

For Each ws In Worksheets

If ws.Name <> "Start" Then
MsgBox ("executed")

For delColumn = LBound(Worksheets("Start").SelectArray) To UBound(Worksheets("Start").SelectArray)
On Error Resume Next
ws.Columns(Application.Match(Worksheets("Start").SelectArray(delColumn), Rows(1), 0)).Delete
On Error GoTo 0
Next delColumn

End If
Next ws

OR....

For Each ws In Worksheets

If ws.Name <> "Start" Then
MsgBox ("executed")

For delColumn = LBound(ws.SelectArray) To UBound(ws.SelectArray)
On Error Resume Next
ws.Columns(Application.Match(ws.SelectArray(delColumn), Rows(1), 0)).Delete
On Error GoTo 0
Next delColumn

End If
Next ws

Actually with a little tinkering my husband help me solve it. I had to command the rows on the worksheet.

Here is the fixed code:

  Dim delColumn As Variant
  Dim ws As Worksheet
  
  For Each ws In Worksheets
        
    If ws.Name <> "Start" Then
        
  For delColumn = LBound(SelectArray) To UBound(SelectArray)
    On Error Resume Next
    ws.Columns(Application.Match(SelectArray(delColumn), ws.Rows(1), 0)).Delete
    On Error GoTo 0
  Next delColumn
   
    End If
    
  Next ws

Thanks again for your replies

Ah... I was on the right track, but you guys figured out the fix
I see it was a need for the sheet reference... I just had it in the wrong place.

Glad you solved it.