On 05-Mar-17 6:36 AM, isabelle wrote:
hi Tim,

For more information about VarType Function like Peter to use,

https://msdn.microsoft.com/en-us/lib.../gg278470.aspx

Value Constant Description
0 vbEmpty Empty (uninitialized)
1 vbNull Null (no valid data)
2 vbInteger Integer
3 vbLong Long integer
4 vbSingle Single-precision floating-point number
5 vbDouble Double-precision floating-point number
6 vbCurrency Currency value
7 vbDate Date value
8 vbString String
9 vbObject Object
10 vbError Error value
11 vbBoolean Boolean value
12 vbVariant Variant (used only with arrays of variants)
13 vbDataObject A data access object
14 vbDecimal Decimal value
17 vbByte Byte value
20 vbLongLong LongLong integer (Valid on 64-bit platforms only.)
36 vbUserDefinedType Variants that contain user-defined types
8192 vbArray Array

isabelle

Le 2017-03-04 à 09:29, Peter T a écrit :

If that doesn't fix them try this UDF

Function DataType(cel As Range)
Dim s As String
Select Case VarType(cel)
Case vbBoolean: s = "Boolean"
Case vbDate: s = "Date"
Case vbDouble: s = "Double"
Case vbEmpty: s = "Empty"
Case vbString: s = "String"
Case vbError: s = "Error"
Case Else: s = "other"
End Select

DataType = s
End Function

=DataType(A1)

You might also try F5, Special, Constants and//or Formulas and tick
only the
Text

Peter T



Hi Peter and Isabelle

Many thanks for the two posts which I will try out

Best wishes, Tim