Sorry , But this is not what I am looking for. Actually I want Macro / VBA code for this function.