activating windows
On Mar 10, 2:37*pm, GS wrote:
GS used his keyboard to write :
If Not sName = "" Then Workbooks(sName).Activate
change to...
* If Not sName = "" Then Application.Windows(sName).Activate
--
Garry
Free usenet access athttp://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc
sorry garry, but it isnt working.
For Each wnd In Application.Windows
If InStr(1, wnd.Caption, TextIn, vbTextCompare) 0 Then _
GetWkbNameFromWindow = wnd.Caption: Exit Function
Next
wnd comes back as Nothing and remains nothing throughout when the code
is run. I ran it with breaks. It also appears to be running only for
the 'active' window and not trying to pull data from any of the other
windows to find the match.
|