thanks. could achieve it by vba ,please?