numberformat with cell reference for negative numbers

Hi,

I'm trying to format a cell with reference to another cell and would like negative numbers to show in brackets.

cell reference is A1

I found the following code but I can't change it to allow for negative numbers:

Sub Macro1()
Dim fmat As String
fmat = Range("A1").Value
Selection.NumberFormat = Chr(34) & " " & fmat & Chr(34) & "#,##0"
End Sub

Thanks in advance

selection.numberformat = "#,##0.00;(-#,##0.00)"

You could try with:

Please Login or Register  to view this content.

Regars,
Antonio