On 03-Mar-17 6:55 AM, GS wrote:
Dim c
For each c in Range("A1:A5")
c.Offset(0, 1) = c.NumberFormat
Next 'c

thanks although it is a characteristic of the cell that I want i.e. if
it is a label or value etc rather than the number format

Tim