Write the following code in VBA
Select a Range of cells and excute to convert into +/-
Sub ConvertDRCRofTallyData()
Dim rng As Range
Set rng = Selection
For Each cell In rng
If InStr(1, cell.NumberFormat, "Dr") >
0 Then
cell.Value = cell.Value * -1
Else
cell.Value = cell.Value
End If
cell.NumberFormat = "General"
Next
MsgBox "Done"
End Sub
