find ud om data er string eller integer

prøv med ;

select case vartype(WrkBook.Worksheets("Ark1").cells(1,1).Value)
  case 8
    'udtryk er string
  Case 2
    'udtryk er integer
end select

Alternativit:
If IsNumeric(WrkBook.Worksheets("Ark1").cells(1,1).Value) then 'udtryk er numerisk

hmm virker ikke helt :(

hvad går galt?

jo isnumeric virker..