Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next

Select Case Right(Target.Value,  1 )
Case "+"
    Cells(Target.Row, Target.Column +  1 ).Select
    For i =  1  To  3 
        Columns(Target.Column + i).Select
        Selection.EntireColumn.Hidden = False
    Next i
    Cells(Target.Row, Target.Column).Value = CSng(Mid(Target.Value,  1 , Len(Target.Value) -  1 ))
    Cells(Target.Row, Target.Column +  1 ).Select
    Exit Sub
Case "-"
    For i =  0  To  2 
        Columns(Target.Column - i).Select
        Selection.EntireColumn.Hidden = True
    Next i
    Cells(Target.Row, Target.Column).Value = CSng(Mid(Target.Value,  1 , Len(Target.Value) -  1 ))
    Cells(Target.Row, Target.Column +  3 ).Select
    Exit Sub
Case Else
    Exit Sub
End Select

End Sub