If this possible using Excel VBA good