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

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

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

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