View Single Post
  #6   Report Post  
Royzer Royzer is offline
Junior Member
 
Posts: 21
Smile

Quote:
Originally Posted by Gord Dibben[_2_] View Post
If the three sheets plus Target sheet are at the end as you state, try
this............

For i = 1 To SheetCnt - 4


Gord

Gord, your code worked perfectly. I had miscounted the number of sheets, but when I changed the -4 to -3 it did exactly what I wanted it to do.

I added:
Code:
 For i = 1 To(SheetCnt -3)
and removed:
Code:
 If ws1.Name < "Pull" Then