Attention Vinu
Here is the code:
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
Sheets(1).Activate
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: [EMAIL PROTECTED]
Sent: Thursday, 23 October, 2008 10:00:16 AM
Subject: Re: $$Excel-Macros$$ Macor for formatting.
Thanks Lokeswar. Its working correctly.
But once I run this macro it ends with last sheet, but i need it in 1st sheet
only.
If I run this macro in any sheet it should ends with 1st sheet by doing below
functions in all sheets.
Could you please help me out.
Thanks a lot.
Vinu
2008/10/22 <[EMAIL PROTECTED]>
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. Get before others grab.
--
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
-~----------~----~----~----~------~----~------~--~---
