Buenas busco un procedimiento para cambiar formato

Ejemplo sub cambiaformatofecha(libro as workbook, hoja as worksheet) que recorra la fila dos de todas las columnas y compruebe si es de tipo fecha en caso afirmativo ponga a la columna entera formato fecha corta.