Thanks Jay and Gord.
Its working and I will try to use these tool maximum.

One more time I need ur help.
How can we delete the personal macro.
When I am deleteing it the error shows.
"CANNOT EDIT A MACRO ON A HIDDEN WORKBOOK.UNHIDE THE WORKBOOK USING THE
UNHIDE COMMAND"
please give me the best web address where i can get maximum information
about Macros.

Thanks again.

Best Regards


"Gord Dibben" wrote:

Jay

Be careful when using the change case macros you provided for Excel.

They will wipe out any formulas in the selected range and return values only.

Better to go with a trap for formulas.

Sub LowerCase()
Dim Rng As Range
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
Rng.Value = LCase(Rng.Value)
End If
Next Rng
End Sub


Gord Dibben MS Excel MVP

On Mon, 9 Apr 2007 11:36:04 -0700, Jay wrote:

Hi Zeeshan €“
--------------------------------------------------------------
MS-Word
Search the Word Help System for €œPrint a list of shortcut keys€� for the best
way to list all existing shortcut keys. There are pre-existing shortcuts for
changing case and font size.

Change Case:
Shift+F3 (toggles among UPPER, lower, and Title Case)

Font Size:
Grow Font 1 Point: Ctrl+]
Shrink Font 1 Point: Ctrl+[
--------------------------------------------------------------
MS-Excel
These procedures are modified directly from code provided at:
http://support.microsoft.com/kb/213649. Copy them to a standard module. To
assign a shortcut key, choose |Tools|Macro|Macros€¦|. Then, select the macro
name in the list, press the [Options] button, and assign a shortcut key.

Change Case:
Sub Uppercase()
' Loop to cycle through each cell in the specified range.
For Each x In Selection
' Change the text in the range to uppercase letters.
x.Value = UCase(x.Value)
Next
End Sub

Sub Lowercase()
' Loop to cycle through each cell in the specified range.
For Each x In Selection
x.Value = LCase(x.Value)
Next
End Sub

Sub Proper_Case()
' Loop to cycle through each cell in the specified range.
For Each x In Selection
' There is not a Proper function in Visual Basic for Applications.
' So, you must use the worksheet function in the following form:
x.Value = Application.Proper(x.Value)
Next
End Sub

Font Size:
(assign shortcut keys as described above)
Sub increase1pt()
Selection.Font.Size = Selection.Font.Size + 1
End Sub

Sub decrease1pt()
Selection.Font.Size = Selection.Font.Size - 1
End Sub

Another option for changing Excel font size is to use existing toolbar
buttons. To add them to a toolbar:

1. Right-click on any toolbar and choose Customize.

2. In the €˜Categories: box on the €˜Commands tab, choose Format.

3. In the €˜Commands: box, scroll to the buttons [Increase Font Size] and
[Decrease Font Size] and drag them to a toolbar of your choice. Then click
[Close].