Hiya
I know this one is solved, but re-running my report from scratch to help on the new questions, and my Macro doesn't work
Has it been changed?
Sub RemColumns() 'MD
Dim RemArray
RemArray = Array("GC", "Cntr", "Whs", "QtyAll", "Uni", "itm", "B", "Prod", "Cat", "sts", "ShelfOK", "QS", "BPC", "La", "Res")
Range("IV2").Offset.End(xlToLeft).Select
Do
For Each Rm In RemArray
If UCase(ActiveCell.Text) = UCase(Rm) Then
ActiveCell.EntireColumn.Delete
Exit For
End If
Next
On Error GoTo Exits
ActiveCell.Offset(0, -1).Select
Loop
Exits:
End Sub
If not, I'll have a bit of a delve to see whats causing it.
Thanks again
eddie