Decimal problems
 

I have found that IsNumeric is not too reliable, although not in the context
of non-US settings. You might try this instead:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("G:G")) Is Nothing Then
If Not Application.IsText(ActiveCell.Value) Then
If Left(ActiveCell.Formula, 1) < "=" Then
Application.EnableEvents = False
ActiveCell.Formula = "=" & ActiveCell.Value
Application.EnableEvents = True
End If
End If
End If
End Sub


--
Jim
"excelent" wrote in message
...
| This kode works fine when i put integer numbers like 1 or 11 or 13
| in column G, but if i put 1,1 or 1,11 or 12,2 it return an error why ?
| (Excell 2003 DK) by the way input like 1.1 (1 dot 1) is text in DK way
|
| Private Sub Worksheet_Change(ByVal Target As Range)
| If Intersect(Target, Range("G:G")) Is Nothing Then Exit Sub
| If IsNumeric(Target) Then Target = "=" & Target
| End Sub
|