Hi, could someone please help me with this macro? It only works on the
active sheet when the "if" condition is met; otherwise it deletes all
the columns to the right of column R. It does nothing to the other
sheets. Sorry, I'll get better at this eventually.

Thanks!

-----

Sub DeleteColumnsAll()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

If InStr(Range("R2").Text, "Apple") Then
Columns("AC:AW").Delete
Else: Columns("S:AB").Delete
End If

Next ws

End Sub