Slight adjustment needed
 

The text I have to format also comes in bold and I want to add to this macro
to make the bold print to normal, Thanks.....
Columns("C:C").Select
Range("C3343").Activate
With Selection.Font
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Columns("D:D").Select
Range("D3343").Activate
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

--



Thanks in advance.........Bob Vance

Slight adjustment needed
 

Columns("C:C").Select
Range("C3343").Activate
With Selection.Font
.Size = 8
.Bold = False
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Columns("D:D").Select
Range("D3343").Activate
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

--
Regards,
Tom Ogilvy

"Bob Vance" wrote in message
...
The text I have to format also comes in bold and I want to add to this
macro
to make the bold print to normal, Thanks.....
Columns("C:C").Select
Range("C3343").Activate
With Selection.Font
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Columns("D:D").Select
Range("D3343").Activate
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

--



Thanks in advance.........Bob Vance

Slight adjustment needed
 

Thanx worked for C column but not D column


"Tom Ogilvy" wrote in message
...
Columns("C:C").Select
Range("C3343").Activate
With Selection.Font
.Size = 8
.Bold = False
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Columns("D:D").Select
Range("D3343").Activate
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

--
Regards,
Tom Ogilvy

"Bob Vance" wrote in message
...
The text I have to format also comes in bold and I want to add to this
macro
to make the bold print to normal, Thanks.....
Columns("C:C").Select
Range("C3343").Activate
With Selection.Font
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Columns("D:D").Select
Range("D3343").Activate
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

--



Thanks in advance.........Bob Vance

Slight adjustment needed
 

Columns("D:D").Select
Range("D3").Activate
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
.Font.Bold = False
End With


--

HTH

Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)

"Bob Vance" wrote in message
...
Thanx worked for C column but not D column


"Tom Ogilvy" wrote in message
...
Columns("C:C").Select
Range("C3343").Activate
With Selection.Font
.Size = 8
.Bold = False
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Columns("D:D").Select
Range("D3343").Activate
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

--
Regards,
Tom Ogilvy

"Bob Vance" wrote in message
...
The text I have to format also comes in bold and I want to add to this
macro
to make the bold print to normal, Thanks.....
Columns("C:C").Select
Range("C3343").Activate
With Selection.Font
.Size = 8
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Columns("D:D").Select
Range("D3343").Activate
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub

--



Thanks in advance.........Bob Vance