Well.., I don't see why you need to use an If construct when the same
two ranges get copied over in all cases. Otherwise, yes there is a much
more efficient way to handle this but it would help if you provide
better info. For example, rows 9 and 15 aren't in your list of sample
target rows, but you show them for each If evaluation!

Show some of the actual ranges for...

ShStart.[A1]:"one": target=source
ShStart.[P40}:"two": target=source
ShStart.[P40}:"three": target=source
ShStart.[P40}:"four": target=source

...where target is the range address on ShDest, and source is the range
address on ShGet, so we have real case scenario to work with.

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion