Hi Wizard
Welcome to VBAX
You really don't want to loop over a million rows!
Regards
MD

ps Tested a loop overnight, just out of interest. It took 4.75 hours

 
wks.Range(Rows(50), Rows(Rows.Count)).Hidden = True