Get the format of a cell, eg =getformat(A1)

Function GetFormat(rCell as Range) as String
 GetFormat = rCell.NumberFormatLocal
End Function


© Copyright andrewsexceltips.net All Rights Reserved.