Numbers not recognized as such

Hello

Here is my macro.. It processes data from a .csv imported.
I managed to get the data I need from one sheet to the other. Now I would like to eliminate some rows (where the value of the transaction is positive).
However, it looks like the values in the range "transactions" (and thus cell) are not recognized as numbers.
Checking if they are positive (cell >= 0) gives a type error, and indeed it the "IsNumeric" gives a false (and the TypeName gives back a variant).
The numbers are formatted something like -123,45, but I also tried using plain integers (1, 10, 100) and they are still not recognized as numeric.

What is the problem?

Private Sub CommandButton2_Click()
'Create a new sheet named as the considered month
Dim newsheet
Set newsheet = Sheets.Add(After:=Sheets(Worksheets.Count))
newsheet.Name = MonthName((Month(Now) - 1)) & " " & Year(Now)

'Copies the content to the new sheet
ActiveSheet.Range("A1:C3").Value = Worksheets(1).Range("A1:C3").Value
ActiveSheet.Range("A2").Select
ActiveSheet.Paste

'Takes away the rows with positive transactions
Dim transactions As Range
Set transactions = Selection.Columns(3)
transactions.Select
transactions.NumberFormat = "0.00"
For Each cell In transactions
cell.Select
If IsNumeric(cell.Value) Then ' <---    Here is the problem!
MsgBox "whatever"
Else
MsgBox TypeName(cell.Value)
'cell.EntireRow.Delete
transactions.Select
End If
Next

You may have blanks or other non-visible characters in the cells. This first step is to see what you have. Pick a cell and run:

Sub WhatDoWeHave()
    txt = ActiveCell.Text
    l = Len(txt)
    msg = ""
    For i = 1 To l
        ch = Mid(txt, i, 1)
        msg = msg & ch & vbTab & Asc(ch) & vbCrLf
    Next i
    MsgBox msg
End Sub

try

For Each cell In transaction.Cells

You could try this code.

Sub TextRangeToNumbers_incolumn_A()
'Made by Datsmart 14-07-2006 on mr Excel
    Dim rng As Range
    Dim c As Range
'Change Column A referrence as needed
    Set rng = Range("A1:A" & Range("A1500").End(xlUp).Row)
    On Error Resume Next
'Cycle through each item in Rng, Trim value then add zero
    For Each c In rng
        If c.Value <> "" Then
            Application.WorksheetFunction.Trim (c.Value)    'Trim removes any spaces
            c.Value = c.Value + 0   'Adding 0 changes item to number
        Else
        End If
    Next c
End Sub