Sub Macro1()
Dim sht
For sht = 1 To Sheets.Count
Sheets(sht).Activate
ActiveWindow.Zoom = 100
Cells.Select
With Selection.Font
.Name = "Arial"
.Size = 9
End With
Range("A1").Select
Next sht
End Sub
_________________________________________________________________________________________________
"There are known knowns. These are things we know that we know. There are known
unknowns. That is to say, there are things that we know we don't know. But
there are also unknown unknowns. There are things we don't know we don't know."
________________________________
From: vinod kumar kumar <[EMAIL PROTECTED]>
To: excel-macros@googlegroups.com
Sent: Wednesday, 22 October, 2008 4:14:47 PM
Subject: $$Excel-Macros$$ Macor for formatting.
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!
`*.¸.*´
Get perfect Email ID for your Resume. Grab now
http://in.promos.yahoo.com/address
--~--~---------~--~----~------------~-------~--~----~
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
-~----------~----~----~----~------~----~------~--~---
