Sub Delete_B()
For x = 1 To Worksheets.Count
Sheets(x).Columns("B:B").Delete
Next
End Sub
--
Mike
When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.
If this is a one time deal, you can select all of the worksheets (click on
the first worksheet tab, hold down the shift key, then click on the last
worksheet tab) , then select column B. In the menu bar click EDIT/DELETE.