please change Range("AB30").Select to any cell
 

Hello from Steved

please change Range("AB30").Select "to operate in any cell"



Sub Strike()
With Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 9
.Strikethrough = True
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = 255
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("AB30").Select
End Sub

please change Range("AB30").Select to any cell
 

Sub Strike()
With Activecell
With .Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 9
.Strikethrough = True
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = 255
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
End With
End Sub


--
__________________________________
HTH

Bob

"Steved" wrote in message
...
Hello from Steved

please change Range("AB30").Select "to operate in any cell"



Sub Strike()
With Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 9
.Strikethrough = True
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = 255
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("AB30").Select
End Sub

please change Range("AB30").Select to any cell
 

If you take out the Range("AB30").Select and run this code, it will run on
the selected cells? Is that what you want?

"Steved" wrote:

Hello from Steved

please change Range("AB30").Select "to operate in any cell"



Sub Strike()
With Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 9
.Strikethrough = True
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = 255
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("AB30").Select
End Sub

please change Range("AB30").Select to any cell
 

Hello Barb

Yes This is whaty I want

Thankyou

"Barb Reinhardt" wrote:

If you take out the Range("AB30").Select and run this code, it will run on
the selected cells? Is that what you want?

"Steved" wrote:

Hello from Steved

please change Range("AB30").Select "to operate in any cell"



Sub Strike()
With Selection.Font
.Name = "Arial"
.FontStyle = "Regular"
.Size = 9
.Strikethrough = True
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.Color = 255
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("AB30").Select
End Sub