Hiermit sollte es gehen
activesheet.range(activesheet.cells(3,3),activesheet.cells(anzvz,6)).clearformats