ich habe den code nicht getestet. er stammt aus dem Netz. Ich denke das Activesheet.Selection nicht so hinhaut.  Lass mal testhalber das Activesheet. weg.  Der Punkt bezieht sich auf den Ausdruck hinter with.  Wenn du die Punkte wegläßt, dann bezieht sich  Rows und Columns auf das ganze gerade aktive Blatt mit all seinen Vielen Zeilen und Spalten