Insert blank column for every cell

[dribei16]

Hi,

I have a range that goes from A1 to DP1. I need to insert a new column for every cell of this range, so that I end up with one cell fullfilled one blank, one fullfilled one blank, et cetera.
Can anyone help me please?


Thanks Danilo

 

[SteveO59L]

Something along the lines of

Dim c As Range, rng
Set rng = Range("a1:l1")
For Each c In rng
If c.Column Mod 2 = 1 Then
c.EntireColumn.Insert
End If
Next c