< Public Function FormatSigned (Number As Variant, NumericFormat As String, Optional UsePlusMarkForZero As Boolean = True) As String (?)

Comments

Public Function FormatSigned (Number As Variant, NumericFormat As String, Optional UsePlusMarkForZero As Boolean = True) As String

    If Number < 0 Then
        FormatSigned = ""
    ElseIf Number > 0 Then
        FormatSigned = "+"
    Else
        If UsePlusMarkForZero Then
            FormatSigned = "+"
        Else
            FormatSigned = " "
        End If
    End If
    
    FormatSigned = FormatSigned & Format(Number, NumericFormat)
End Function

Copying, Return to index