Reversing the signs of selected cells - help neededddd

Sub chagneme()

With ActiveSheet
    For Each cel In .Range("C1", .Range("C" & .Rows.Count).End(xlUp))
        If Len(cel) Then
            cel.Value = Val(cel.Value) * -1
        End If
    Next
End With
End Sub