Set value for range of cells!

[Kim-Anh Tran]

How do I change this to set target range for rows from 46:54?
I appreciate any help!
Kim-Anh

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row = 46 And Target.Column = 20 Then
Select Case Target.Formula
Case "x"
'allow this
Case ""
'allow this
Case Else
'reset to nothing
Target.Formula = ""
End Select
End If
End Su

 

[Norman Jones]

Hi Kim-Anh Tran ,

Try:
If Target.Row > 45 And Target.Row < 55 _
And Target.Column = 20 Then

 

[Tim Zych]

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, _
Range(Cells(46, 20), Cells(54, 20))) Is Nothing Then
'within range
End If
End Sub