I have a macro 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
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