I given a Non VBA solution but the OP looking for VBA solution only, Any one please jump in this thread

http://www.excelforum.com/excel-prog...ell-value.html