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