R
RoadKing
Rick:
Thanks for the info however, I am not a programmer and would appreciate a
little help. The following is a macro I created. I would like to include
the "proper" code into the this.
Thanks in advance
John
Sub PageFormat()
'
' PageFormat Macro
' Macro recorded 8/19/2007 by John Donadio
'
' Keyboard Shortcut: Ctrl+z
'
Cells.Select
With Selection.Font
.Name = "Times New Roman"
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
Columns("B:B").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A2").Select
End Sub
From: "Rick Rothstein (MVP - VB)" <[email protected]>
Subject: Re: Help- Changing Case
Date: Sunday, August 19, 2007 12:53 PM
Or, using "pure" VBA code...
For Each R In Selection
R.Value = StrConv(R.Value, vbProperCase)
Next
Rick
Thanks for the info however, I am not a programmer and would appreciate a
little help. The following is a macro I created. I would like to include
the "proper" code into the this.
Thanks in advance
John
Sub PageFormat()
'
' PageFormat Macro
' Macro recorded 8/19/2007 by John Donadio
'
' Keyboard Shortcut: Ctrl+z
'
Cells.Select
With Selection.Font
.Name = "Times New Roman"
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
End With
Columns("B:B").Select
With Selection
.HorizontalAlignment = xlGeneral
.VerticalAlignment = xlBottom
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Range("A2").Select
End Sub
From: "Rick Rothstein (MVP - VB)" <[email protected]>
Subject: Re: Help- Changing Case
Date: Sunday, August 19, 2007 12:53 PM
Select the cells you want to make Proper and run this small macro:
Sub properize()
For Each r In Selection
r.Value = Application.WorksheetFunction.Proper(r.Value)
Next
End Sub
Or, using "pure" VBA code...
For Each R In Selection
R.Value = StrConv(R.Value, vbProperCase)
Next
Rick