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