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

Sub tester2()
name_fixup "house", "cat"
End Sub


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



Worked fine for me. I didn't alter you code.

--
Regards,
Tom Ogilvy


"pH7 " wrote in message
...
The following macro just terminates after the line that says
"rng.EntireColumn.Hidden = False". That line seems to execute
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 the
columns are hidden. Is there some way to make the Find search in hidden
columns? (Then I won't have to use the statements that are causing
problems.)


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

I found the answer to my second question and therefore the first proble
went away. Sorry, I didn't think to search for that first. If anyon
knows the answer to the first question, it would still be of interes
because I have had that sort of thing happen in other situations a
well

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

The code works fine, so there was no reason to ask either question.

--
Regards,
Tom Ogilvy


"pH7 " wrote in message
...
I found the answer to my second question and therefore the first problem
went away. Sorry, I didn't think to search for that first. If anyone
knows the answer to the first question, it would still be of interest
because I have had that sort of thing happen in other situations as
well.


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