Necesito procedimiento cambiar formato fecha

Necesito macro o proce eje cambiar_formato(libro, hoja, nombrecolumna) que si el nombre columna contiene fecha cambié el formato de esa columna de esa tabla a fecha corta.