Excel VisualBasic Script

Sub MyMacro
         ActiveCell.Value = (ActiveCell.Value * 2) - 1
End Sub