There it is again! Dave, in your reply to Darin, you used

.Range(.Columns(NextCol), .Columns(.Columns.Count)).EntireColumn.Delete

I can find no difference between this and

.Range(.Columns(NextCol), .Columns(.Columns.Count)).Delete

I can see that under some coding circumstances, failing to include
EntireColumn could cause a problem. But I wonder whether you include
EntireColumn here as a fail-safe, or out of force of habit, or did I miss
something?

Thanks,
James