Hi
why use VBA?.
one way (without VBA) would be the following
- enter '-1' in a blank cell
- copy this cell (CTRL+C)
- select A1:A7
- goto 'Edit - Paste Special' and choose 'Multiply' as action
For a VBA solution you may try the following macro (makes all numbers
negative in the current selection - already negative numbers won't be
altered)
Public Sub make_negative()
Dim c As Range
For Each c In Selection
If c.Value > 0 Then
c.Value = -c.Value
End If
Next
End Sub
Note: no error checking included for strings, etc.