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

[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