Tahir

change:

If Target.Address = "$B$3" Then

to:

If Intersect(Target,Range("A1:L60")) is Nothing Then Exit Sub

and remove the last End If

Regards

Trevor


"tahir" wrote in
message ...

This is the code of Worksheet Change, This code works great, but
it has limitations. The code only triggers on Cell B3 for change. Is it
possible to expand it to a range of A1 to L60

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
Application.EnableEvents = False
If Target.Value = "Yes" Then
With Range("C3")
Value = "No"
With .Validation
Delete
Add Type:=xlValidateTextLength, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlEqual, Formula1:="0"
IgnoreBlank = True
InCellDropdown = True
InputTitle = ""
ErrorTitle = ""
InputMessage = ""
ErrorMessage = "Leave cell blank"
ShowInput = False
ShowError = True
End With
End With
Else
With Range("C3")
Value = "Yes"
With .Validation
Delete
Add Type:=xlValidateList, _
AlertStyle:=xlValidAlertStop, _
Operator:=xlEqual, Formula1:="=Eligible"
IgnoreBlank = True
InCellDropdown = True
InputTitle = ""
ErrorTitle = ""
InputMessage = ""
ErrorMessage = "Select from the list"
ShowInput = False
ShowError = True
End With
End With
End If
End If
Application.EnableEvents = True
End Sub


--
tahir

Student, working on a project
------------------------------------------------------------------------
tahir's Profile:
http://www.excelforum.com/member.php...fo&userid=6053
View this thread: http://www.excelforum.com/showthread...hreadid=523248