Hey All,
This is the code that works when blanking out one column to the right:
Is it possible to tailor this code to blank out more than one column to the right with out having to copy paste the code for each different column?Sub takeoutblanks() Dim D As Range With Worksheets("WIP") For Each D In .Range("D3", .Cells(Rows.Count, 4).End(xlUp)) If D = "" Then D.Offset(, 1) = "" Next End With End Sub
Ideally i need to blank out columns that may not be adjacent to column D, data may need to be blanked out in column H, L, P up to 7 other columns in total
Bookmarks