Hallo,
entferne diese beiden Zeilen:
.Columns("A:B").Hidden = False .Columns("A:B").Hidden = True
Gruss Torsten