If UCase(Left(wbk.Name, 3)) = "Exp" Then

If UCase(Left(wbk.Name, 3)) = "EXP" Then

(ucase means upper case)



Tom wrote:

I'm using :
Sub test()
Dim wbk As Workbook
For Each wbk In Application.Workbooks
If UCase(Left(wbk.Name, 3)) = "Exp" Then
wbk.Activate
ActiveSheet.Unprotect
With ActiveWindow
.DisplayGridlines = True
.DisplayHeadings = True
End With
Columns("A:K").Select
Selection.EntireColumn.Hidden = False

Exit For
End If
Next
Windows("DEF.xls").Activate
End Sub

But it does nothing, even no error.

What's wrong

Thank you very much in advance !
Tom
-----Original Message-----
for each wkbk in Application.Workbooks
if Ucase(left(wkbk.Name,3)) = "ABC" then
wkbk.Activate
exit sub
end if
Next

--
Regards,
Tom Ogilvy

"Tom" wrote in
message
...
Hi,

I'm using a macro that opens a dialigbox to open a
file.
I know the filename begins with ABC.
ex : ABC XXXXX of ABC YYYY.

Is it possible to switch between a filename that is
always the same and ABC XXXXX
The file I know (DEF) I select with :
Windows("DEF.xls").Activate

Can I use something like Windows("ABC*.xls").Activate ?

Thanks
Tom


.


--

Dave Peterson