I'm having trouble with part of a macro which opens a file and reformats the contents. Part of the code (below) reformats a column using "For Each \_\_\_ in Intersect", but if the column is blank, the macro crashes. 

```
For Each Cel In Intersect(NewWs.Range("i3:i65536"), NewWs.UsedRange).Cells
    If Cel = "" Then
    Cel.Value = "-"
    End If

```

What is the most direct way to prevent it from crashing and just move on if the column is empty? If more information is needed please let me know. Thanks in advance for any assistance.