I have a set of macros which Changes the case within Excel. This is in my
Personal.xls workbook which is hidden, so the macro won't run

The macro is as follows

Option Explicit
Dim objCell As Object


Sub ChangeCase_Show()
frmCase.Show
End Sub

Sub DoCaseChange()
If frmCase.optLower = True Then
LowerCase
ElseIf frmCase.optUpper = True Then
UpperCase
Else
TitleCase
End If
End Sub



Sub LowerCase()
For Each objCell In Selection
objCell.Value = LCase(objCell.Formula)
Next objCell
End Sub

Sub UpperCase()
For Each objCell In Selection
objCell.Value = UCase(objCell.Formula)
Next objCell
End Sub Sub TitleCase()
For Each objCell In Selection
objCell.Value = Application.Proper(objCell.Formula)
Next objCell
End Sub

can anyone tell me how to run from a hidden, unshared, unprotected workbook

Try

Application.Run "Personal.xls!ChangeCase_Show"

Mike

"Val H" wrote:

I have a set of macros which Changes the case within Excel. This is in my
Personal.xls workbook which is hidden, so the macro won't run

The macro is as follows

Option Explicit
Dim objCell As Object


Sub ChangeCase_Show()
frmCase.Show
End Sub

Sub DoCaseChange()
If frmCase.optLower = True Then
LowerCase
ElseIf frmCase.optUpper = True Then
UpperCase
Else
TitleCase
End If
End Sub



Sub LowerCase()
For Each objCell In Selection
objCell.Value = LCase(objCell.Formula)
Next objCell
End Sub

Sub UpperCase()
For Each objCell In Selection
objCell.Value = UCase(objCell.Formula)
Next objCell
End Sub Sub TitleCase()
For Each objCell In Selection
objCell.Value = Application.Proper(objCell.Formula)
Next objCell
End Sub

can anyone tell me how to run from a hidden, unshared, unprotected workbook

At what point do I enter this statement please Mike
--
Val


"Mike H" wrote:

Try

Application.Run "Personal.xls!ChangeCase_Show"

Mike

"Val H" wrote:

I have a set of macros which Changes the case within Excel. This is in my
Personal.xls workbook which is hidden, so the macro won't run

The macro is as follows

Option Explicit
Dim objCell As Object


Sub ChangeCase_Show()
frmCase.Show
End Sub

Sub DoCaseChange()
If frmCase.optLower = True Then
LowerCase
ElseIf frmCase.optUpper = True Then
UpperCase
Else
TitleCase
End If
End Sub



Sub LowerCase()
For Each objCell In Selection
objCell.Value = LCase(objCell.Formula)
Next objCell
End Sub

Sub UpperCase()
For Each objCell In Selection
objCell.Value = UCase(objCell.Formula)
Next objCell
End Sub Sub TitleCase()
For Each objCell In Selection
objCell.Value = Application.Proper(objCell.Formula)
Next objCell
End Sub

can anyone tell me how to run from a hidden, unshared, unprotected workbook

Hi,


Your macro works on selected cells in the active sheet to right click that
sheet tab, view code and paste the sub below in on the right

Sub Sonic()
Application.Run "Personal.xls!ChangeCase_Show"
End Sub

Mike
"Val H" wrote:

At what point do I enter this statement please Mike
--
Val


"Mike H" wrote:

Try

Application.Run "Personal.xls!ChangeCase_Show"

Mike

"Val H" wrote:

I have a set of macros which Changes the case within Excel. This is in my
Personal.xls workbook which is hidden, so the macro won't run

The macro is as follows

Option Explicit
Dim objCell As Object


Sub ChangeCase_Show()
frmCase.Show
End Sub

Sub DoCaseChange()
If frmCase.optLower = True Then
LowerCase
ElseIf frmCase.optUpper = True Then
UpperCase
Else
TitleCase
End If
End Sub



Sub LowerCase()
For Each objCell In Selection
objCell.Value = LCase(objCell.Formula)
Next objCell
End Sub

Sub UpperCase()
For Each objCell In Selection
objCell.Value = UCase(objCell.Formula)
Next objCell
End Sub Sub TitleCase()
For Each objCell In Selection
objCell.Value = Application.Proper(objCell.Formula)
Next objCell
End Sub

can anyone tell me how to run from a hidden, unshared, unprotected workbook

Didn't completely work I'm afraid Mike - it brought up the Form OK to select
which Change Case I wanted to select, but when I selected the radio button it
said couldn't find project libary
--
Val


"Mike H" wrote:

Hi,


Your macro works on selected cells in the active sheet to right click that
sheet tab, view code and paste the sub below in on the right

Sub Sonic()
Application.Run "Personal.xls!ChangeCase_Show"
End Sub

Mike
"Val H" wrote:

At what point do I enter this statement please Mike
--
Val


"Mike H" wrote:

Try

Application.Run "Personal.xls!ChangeCase_Show"

Mike

"Val H" wrote:

I have a set of macros which Changes the case within Excel. This is in my
Personal.xls workbook which is hidden, so the macro won't run

The macro is as follows

Option Explicit
Dim objCell As Object


Sub ChangeCase_Show()
frmCase.Show
End Sub

Sub DoCaseChange()
If frmCase.optLower = True Then
LowerCase
ElseIf frmCase.optUpper = True Then
UpperCase
Else
TitleCase
End If
End Sub



Sub LowerCase()
For Each objCell In Selection
objCell.Value = LCase(objCell.Formula)
Next objCell
End Sub

Sub UpperCase()
For Each objCell In Selection
objCell.Value = UCase(objCell.Formula)
Next objCell
End Sub Sub TitleCase()
For Each objCell In Selection
objCell.Value = Application.Proper(objCell.Formula)
Next objCell
End Sub

can anyone tell me how to run from a hidden, unshared, unprotected workbook

Hi,

1. Choose Tools, Customize, Commands tab, Macros category, drag the Custom
Button on to any toolbar.
2. With the Customize dialog box open right-click the new button and choose
Assign Macro and pick ChangeCase_Show().

I might also add a shortcut key for the macro, and change the button Name
and Picture, but they are not necessary.

I would also modify your code to read:

Option Explicit
Dim Cell As Range

Sub ChangeCase_Show()
frmCase.Show
End Sub

Sub DoCaseChange()
If frmCase.optLower = True Then
LowerCase
ElseIf frmCase.optUpper = True Then
UpperCase
Else
TitleCase
End If
End Sub

Sub LowerCase()
For Each Cell In Selection
Cell = LCase(Cell)
Next Cell
End Sub

Sub UpperCase()
For Each Cell In Selection
Cell = UCase(Cell)
Next Cell
End Sub

Sub TitleCase()
For Each Cell In Selection
Cell = Application.Proper(Cell)
Next Cell
End Sub

--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


"Val H" wrote:

I have a set of macros which Changes the case within Excel. This is in my
Personal.xls workbook which is hidden, so the macro won't run

The macro is as follows

Option Explicit
Dim objCell As Object


Sub ChangeCase_Show()
frmCase.Show
End Sub

Sub DoCaseChange()
If frmCase.optLower = True Then
LowerCase
ElseIf frmCase.optUpper = True Then
UpperCase
Else
TitleCase
End If
End Sub



Sub LowerCase()
For Each objCell In Selection
objCell.Value = LCase(objCell.Formula)
Next objCell
End Sub

Sub UpperCase()
For Each objCell In Selection
objCell.Value = UCase(objCell.Formula)
Next objCell
End Sub Sub TitleCase()
For Each objCell In Selection
objCell.Value = Application.Proper(objCell.Formula)
Next objCell
End Sub

can anyone tell me how to run from a hidden, unshared, unprotected workbook

Could you examine my "Making drop down selection lists" post, please,
and tell me if it is possible?

On Sun, 28 Jun 2009 09:05:01 -0700, Shane Devenshire
wrote:


Hi,

1. Choose Tools, Customize, Commands tab, Macros category, drag the Custom
Button on to any toolbar.
2. With the Customize dialog box open right-click the new button and choose
Assign Macro and pick ChangeCase_Show().

I might also add a shortcut key for the macro, and change the button Name
and Picture, but they are not necessary.

I would also modify your code to read:

Option Explicit
Dim Cell As Range

Sub ChangeCase_Show()
frmCase.Show
End Sub

Sub DoCaseChange()
If frmCase.optLower = True Then
LowerCase
ElseIf frmCase.optUpper = True Then
UpperCase
Else
TitleCase
End If
End Sub

Sub LowerCase()
For Each Cell In Selection
Cell = LCase(Cell)
Next Cell
End Sub

Sub UpperCase()
For Each Cell In Selection
Cell = UCase(Cell)
Next Cell
End Sub

Sub TitleCase()
For Each Cell In Selection
Cell = Application.Proper(Cell)
Next Cell
End Sub

Hi Shane
unfortunately still comes back as cant find libary
--
Val


"Shane Devenshire" wrote:

Hi,

1. Choose Tools, Customize, Commands tab, Macros category, drag the Custom
Button on to any toolbar.
2. With the Customize dialog box open right-click the new button and choose
Assign Macro and pick ChangeCase_Show().

I might also add a shortcut key for the macro, and change the button Name
and Picture, but they are not necessary.

I would also modify your code to read:

Option Explicit
Dim Cell As Range

Sub ChangeCase_Show()
frmCase.Show
End Sub

Sub DoCaseChange()
If frmCase.optLower = True Then
LowerCase
ElseIf frmCase.optUpper = True Then
UpperCase
Else
TitleCase
End If
End Sub

Sub LowerCase()
For Each Cell In Selection
Cell = LCase(Cell)
Next Cell
End Sub

Sub UpperCase()
For Each Cell In Selection
Cell = UCase(Cell)
Next Cell
End Sub

Sub TitleCase()
For Each Cell In Selection
Cell = Application.Proper(Cell)
Next Cell
End Sub

--
If this helps, please click the Yes button.

Cheers,
Shane Devenshire


"Val H" wrote:

I have a set of macros which Changes the case within Excel. This is in my
Personal.xls workbook which is hidden, so the macro won't run

The macro is as follows

Option Explicit
Dim objCell As Object


Sub ChangeCase_Show()
frmCase.Show
End Sub

Sub DoCaseChange()
If frmCase.optLower = True Then
LowerCase
ElseIf frmCase.optUpper = True Then
UpperCase
Else
TitleCase
End If
End Sub



Sub LowerCase()
For Each objCell In Selection
objCell.Value = LCase(objCell.Formula)
Next objCell
End Sub

Sub UpperCase()
For Each objCell In Selection
objCell.Value = UCase(objCell.Formula)
Next objCell
End Sub Sub TitleCase()
For Each objCell In Selection
objCell.Value = Application.Proper(objCell.Formula)
Next objCell
End Sub

can anyone tell me how to run from a hidden, unshared, unprotected workbook