Thanks for catching that JE. Could have used WITH

--
Don Guillett
SalesAid Software

"JE McGimpsey" wrote in message
...
Should be

If ws.Range("A1")="" Or ws.Range("A2")="" Then ws.Columns(1).Delete

or all deletions will depend on A1:A2 of the active sheet.

In article ,
"Don Guillett" wrote:

why not just put a line in the first loop? But, do you really want to
delete
col A?

Sub Parse()
For Each ws In Worksheets
Application.DisplayAlerts = False
ws.Columns(1).TextToColumns DataType:=xlDelimited, _
ConsecutiveDelimiter:=True, Tab:=False, Semicolon:=False, _
Comma:=False, Space:=True
if range("a1")="" or range("a2")="" then columns(1).delete
Next ws