Does anyone know what macro I could use to convert a (-) number to a (+)
number? For example, I have -8.96% and need to change it to 8.96% to show a
negative $ amount in my calculation. All I need is to remove the (-) symbol.

Hi,

You probably don't need a macro. Put -1 in a cell and copy it. Select the
number(s) to convert and then

Edit|Paste Special - Select 'Multiply' - OK

Delete the -1

Mike

"Nikki" wrote:

> Does anyone know what macro I could use to convert a (-) number to a (+)
> number? For example, I have -8.96% and need to change it to 8.96% to show a
> negative $ amount in my calculation. All I need is to remove the (-) symbol.

Thanks - that was easy

"Mike H" wrote:

> Hi,
>
> You probably don't need a macro. Put -1 in a cell and copy it. Select the
> number(s) to convert and then
>
> Edit|Paste Special - Select 'Multiply' - OK
>
> Delete the -1
>
> Mike
>
> "Nikki" wrote:
>
> > Does anyone know what macro I could use to convert a (-) number to a (+)
> > number? For example, I have -8.96% and need to change it to 8.96% to show a
> > negative $ amount in my calculation. All I need is to remove the (-) symbol.

No need for a macro - just use the ABS() function in your formula

--
Ken
"Using Dbase dialects since 82"
"Started with Visicalc in the same year"


"Nikki" wrote:

> Thanks - that was easy
>
> "Mike H" wrote:
>
> > Hi,
> >
> > You probably don't need a macro. Put -1 in a cell and copy it. Select the
> > number(s) to convert and then
> >
> > Edit|Paste Special - Select 'Multiply' - OK
> >
> > Delete the -1
> >
> > Mike
> >
> > "Nikki" wrote:
> >
> > > Does anyone know what macro I could use to convert a (-) number to a (+)
> > > number? For example, I have -8.96% and need to change it to 8.96% to show a
> > > negative $ amount in my calculation. All I need is to remove the (-) symbol.

'If u are looking for a macro to do that below is the code
but be aware it converts blank to zero
Sub macro2()
Dim k As Range
Set k = Application.InputBox(Prompt:="Please select the range",
Title:="Specify range", Type:=8)
On Error Resume Next
If k Is Nothing Then
Exit Sub
Else
For Each cell In k
cell.Value = -cell.Value
Next cell
End If
End Sub

Try it this way to compensate for any blanks and inadvertent touching of the
dreaded space bar

Sub macro2SAS()
Dim k As Range
Set k = Application.InputBox(Prompt:= _
"Please select the range", _
Title:="Specify range", Type:=8)
On Error Resume Next
If k Is Nothing Then
Exit Sub
Else
For Each cell In k
If Len(Application.Trim(cell)) > 0 Then
cell.Value = Abs(cell.Value)
End If
Next cell
End If
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software
(E-Mail Removed)
"Mateen.jazz" <(E-Mail Removed)> wrote in message
news:1A1F45C3-A6F1-42B2-B461-(E-Mail Removed)...
> 'If u are looking for a macro to do that below is the code
> but be aware it converts blank to zero
> Sub macro2()
> Dim k As Range
> Set k = Application.InputBox(Prompt:="Please select the range",
> Title:="Specify range", Type:=8)
> On Error Resume Next
> If k Is Nothing Then
> Exit Sub
> Else
> For Each cell In k
> cell.Value = -cell.Value
> Next cell
> End If
> End Sub