something like this:

Sub UnWrap()
Dim n As Name
Dim rng As Range

On Error Resume Next
For Each n In ThisWorkbook.Names
Set rng = Intersect(n.RefersToRange, ActiveSheet.Range("A1:H400"))
If Not rng Is Nothing Then
rng.WrapText = False
End If
Set rng = Nothing
Next n

End Sub


"Alex St-Pierre" wrote:

Hi,
I would like to remove WrapText for each each in range(A1:H400) that has a
named range. The fastest way should be to defined a range that contains only
the named range and then, I could apply rng.WrapText = False. Any idea?
Thanks!
Alex
--
Alex St-Pierre