Consider the following code
Sub sample1()
ActiveWorkbook.Worksheets.Select
Cells.Select
With Selection.Font
.Name = "Arial"
.Size = 9
End With
ActiveWindow.Zoom = 100
Range("A1").Select
Worksheets(1).Select
End Sub
Regards
Ajit
On Wed, Oct 22, 2008 at 4:14 PM, vinod kumar kumar <[EMAIL PROTECTED]>wrote:
> Could you pls provide me the Macro code for the below requirements. This
> macro should be work for irrespective no. of sheets in a workbook. It
> should satisfy the following conditions.
>
> Font - Arial
> Font size - 9
> Zoom-100%
> and all the sheets cell should be A1.
>
> Could you pls help me with this and give a short cut key and send me the
> exl file.
>
> --
> Vinu
>
>
> (¨`*.*´¨) Always
> `*.¸(¨`*.*´¨) Keep
> (¨`*.*´¨)¸.*´ Smiling!
> `*.¸.*´
>
> >
>
--
Thank You,
Ajit Navre
--~--~---------~--~----~------------~-------~--~----~
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/excel-macros?hl=en
Visit & Join Our Orkut Community at
http://www.orkut.com/Community.aspx?cmm=22913620
Visit the blog to download Excel tutorials at
http://www.excel-macros.blogspot.com
To Learn VBA Macros Please visit http://www.vbamacros.blogspot.com
To see the Daily Excel Tips, Go to:
http://exceldailytip.blogspot.com
-~----------~----~----~----~------~----~------~--~---
