The following macro just terminates after the line that say
"rng.EntireColumn.Hidden = False". That line seems to execut
correctly. There is no error of any kind displayed. Any idea why?

Code
-------------------

Sub name_fixup(old_name As String, new_name As String)
Dim rng As Range
Set rng = ActiveSheet.Range("H:L")
rng.EntireColumn.Hidden = False

Set c = rng.Find(old_name, LookIn:=xlValues, LookAt:=xlWhole)
While Not c Is Nothing
c.Value = new_name
Set c = rng.FindNext()
Wend
rng.EntireColumn.Hidden = True
End Sub

-------------------

The reason I am trying to do the unhide is that the Find fails if th
columns are hidden. Is there some way to make the Find search in hidde
columns? (Then I won't have to use the statements that are causin
problems.

--
Message posted from http://www.ExcelForum.com