Vraag : blink uit - als de cel leeg is, schrap volledige kolom

Hallo, heeft
I binnen een spreadsheet uitblinken.

If om het even welke cel in rij 2 = 0 ik wil schrappen dat volledige columnn.

Is dit mogelijk?
Sm17ch

Antwoord : blink uit - als de cel leeg is, schrap volledige kolom

hth

Dave

1: 2: 3: 4: 5: 6: 7: 8: 9: 10:

Sub KillTwo () Schemerige rng1 als Waaier Schemerige lngRow zoals lang Application.ScreenUpdating = Vals De reeks rng1 = snijdt (ActiveSheet.UsedRange, Rijen (2)) Voor lngRow = rng1.Columns.Count aan 1 Stap -1 Als rng1.Cells (lngRow). Waarde = „0“ toen rng1.Cells (lngRow) .EntireColumn.Delete Volgende lngRow Application.ScreenUpdating = Waar Sub van het eind