You could record a macro under Tools Macros to do this,
or try this:
Sub DeleteParen()
Dim ws As Worksheet
Dim rng1 As Range
Dim rng2 As Range
Dim rng3 As Range
Set ws = ActiveSheet
With ws
Set rng1 = .Range("A:A")
Set rng2 = .UsedRange
End With
Set rng3 = Application.Intersect(rng1, rng2)
With rng3
.Replace What:="(", Replacement:="", LookAt:=xlPart
.Replace What:=")", Replacement:="", LookAt:=xlPart
End With
Range("A:A").NumberFormat = "General"
End Sub
---
HTH
Jason
Atlanta, GA
-----Original Message-----
Not sure if this is the correct group. Please advise me
if not.
What will a VBA macro look like that removes all
parentheses from the first
column of an Excel worksheet and then sets the format
for that column to
"general"?
Thanks,
Brett
.
|