Does this work?

i = 65505
do
Rows(i).delete shift:=xlUp
Rows(i).delete shift:=xlUp
i = i - 46
while i 0

Die_Another_Day
bodhisatvaofboogie wrote:
Okay, I want to select rows 1,2.....47, 48.......93,94......etc etc on to
infinity. It is that pattern, so every 45th and 46th row, then have the
entire row deleted. How might I go about doing this??? Don't ask me why,
it's just one part of what I want my macro to do. I am at a loss for how to
write a formula up for this. THANKS!!!