اجرای کد با انتخاب محدوده

[ali.b]

سلام طبق این کدی که دارم هروقت روی سلول b1 کلیک کنم کد مورد نظرم ران میشه
اما میخوام براش محدوده تعریف کنم یعنی بگم از رنج a1 تا c1 هر کدوم رو کلیک کردم این کد ران بشه
برای این قسمت چکارکنم؟

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
   If Target.Address = Range("B1").Address Then _
      UserForm1.Show
      
End Sub

[DOLFIN]

سلام دوست عزیز. این کد رو امتحان کنید :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1:C1")) Is Nothing Then
Exit Sub
Else
UserForm1.Show
End If
End Sub