=TEXT(A1,"$#,##0")&CHAR(10)&"(I & B)"
ADVERTISEMENT
Sub foof()
Selection.NumberFormat = "#,##0 " & Chr(10) & """(I & B)"""
End Sub
Sub offo()
With Selection
.NumberFormat = "#,##0 " & Chr(10) & """(drinks at the pub)"""
.WrapText = True
End With
End Sub
Sub InputDesc()
Dim strDesc As String, strFormat As String
strDesc = InputBox("And the description is?", "Item Desc")
strFormat = "#,##0 " & Chr(10) & """(" _
& strDesc & ")"""
With Selection
.NumberFormat = strFormat
.WrapText = True
.RowHeight = 26
End With
End Sub