Button Formula

[jkchild]

Hi

I regularly format cells for numbers as follows, by selecting the cutom option within Format Cells

#,##0;[Red](#,##0);"-"

Is there a way I can add this to a button? I guess via a macro??

Thanks
J

 

[VoG]

Try with a button from the Controls toolbar

Private Sub CommandButton1_Click()
Selection.NumberFormat = "#,##0;[Red](#,##0);" & Chr(34) & "-" & Chr(34)
End Sub

Select the range then click the button to apply the formatting.

 

[jkchild]

Fantastic

Thanks VOG