Do you have any suggestions for accomplishing the above with non VBA code?