Thanks a lot.

it worked fine




On 5 Maio, 20:18, GS wrote:
Try...

Sub nome_cenario()
* Dim wkb As Workbook
* For Each wkb In Application.Workbooks
* * If Not UCase$(wkb.Name) = "PERSONAL.XLS" Then Call Myproceure
* Next 'wkb
End Sub

--
Garry

Free usenet access athttp://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc