Removing dashes when importing text

[kevbot_5000]

First time poster, long time lurker. I'm importing data from a text file, but every now and then there is a "----" in the middle of my data which creates an extra column. This throws off the rest of my formulas. Any suggestions??

 

[eddvrs]

Hey Kev,

Is it always in the same column, and is it always the same number of dashes (4)?

 

[kevbot_5000]

Thanks for the reply.

No, the data changes everyday. Sometimes there are dashes, sometimes there are none. I'm using VBA to import the data and was hoping that there was a way to ignore the dashes upon import.

 

[eddvrs]

You could try something like this by selecting the top cell of any column that has the dashes in:

Sub remove_dashes()
    Application.ScreenUpdating = False
    Do Until ActiveCell.Value = "" 'go to the bottom of the column
    
        If ActiveCell.Value = "----" Then
            ActiveCell.Delete Shift:=xlToLeft
        End If
        ActiveCell.Offset(1).Activate
    Loop

    Application.ScreenUpdating = True
End Sub