Zitat von Neuling: „.UsedRange.Columns(i).Delete()“ Lass das .UsedRange weg. Damit werden die Spalten des Sheet gelöscht und das willst du ja eigentlich. UsedRange kann übrigens irreführend sein, wenn die Nutzdaten nicht in Zeile 1 oder Spalte 1 beginnen.