Change Format of Column to Phone Format

Hello, Does anybody know how to change the format for the entire Column A from row 2 on from this format 123-564-9876 to (123) 564-9876. I need this in a macro form. Thanks for your help.

Hi...

Try this..

Private Sub CommandButton1_Click()
Dim i As Long
For i = 2 To Range("A" & Rows.Count).End(xlUp).Row
Cells(i, 1).Value = "(" & Replace(Cells(i, 1), "-", ") ", 1, 1)
Next i
End Sub

Thank you, that works.