Minuszeichen nach vorne

Sub Minus()
'setzt ein Minuszeichen vor die Zahl, welches vorher hinter der Zahl stand
If MsgBox("Sollen Minuszeichen vorangestellt werden?", vbYesNo) = vbYes Then
Dim lngZeile As Long
Dim intSpalte As Integer
intSpalte = ActiveCell.Column
'aktiviert Spalte, in der sich Cursor gerade befindet
For lngZeile = 1 To Cells(Rows.Count, intSpalte).End(xlUp).Row
If Right(Cells(lngZeile, intSpalte), 1) = "-" Then
Cells(lngZeile, intSpalte) = "-" & Left(Cells(lngZeile, intSpalte), Len(Cells( _
lngZeile, intSpalte)) - 1)
End If
Next
Else
End If
End Sub