Workbook open

[verluc]

Why, this code don't work ?

Sub Workbook_open()
With Sheets("XXXXXX")
   .Range("A4").Select
   .ActiveWindow.Zoom = 76
   .ActiveSheet.ScrollArea = ("A4:R1000")
   .Columns.AutoFit
End With
End Sub

Many thanks in advance

 

[Smitty]

Make sure that the code is in the This Workbook module:

<font face=Calibri><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Workbook_open()<br>    <SPAN style="color:#00007F">With</SPAN> Sheets("XXXXXX")<br>       .Activate<br>       .Range("A4").Select<br>       ActiveWindow.Zoom = 76<br>       .ScrollArea = ("A4:R1000")<br>       .Columns.AutoFit<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>

HTH,

 

[verluc]

Hello Smitty, million tanks !!!