VBA ปรับโค้ดให้ไปชีทที่ต้องการค่ะ

[suka]

เรียนอาจารย์และท่านผู้รู้ช่วยปรับโค้ดค่ะ
ตัวอย่างไฟล์แนบมีตารางข้อมูลเซลล์ B3:I19 ที่ชีท Sheet1 ใช้โค้ดด้านล่างนี้

ต้องการปรับโค้ดเมื่อคลิกที่เซลล์ใด ๆ ที่อยู่นอกกรอบข้อมูลเซลล์ B3:I19 ชีทSheet1 เช่นคลิกที่คอลัมน์ K:R ก็ให้ไปวิ่งที่ Sheet2 เซลล์ F10 ค่ะ

โค้ดด้านล่างติดเมื่อคลิกเซลล์ใดก็วิ่งไปที่ชีท Sheet2 ค่ะ ควรปรับโค้ดอย่างไรคะ

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.Goto Sheets("Sheet2").Cells(10, 6)
End Sub

[snasui]

ตัวอย่างการปรับ Code ครับ

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("b3:i19")) Is Nothing Then
        Worksheets("Sheet2").Select
        ActiveSheet.Range("f10").Select
    End If
End Sub

[suka]

ขอบคุณค่ะอาจารย์ ได้ตรงตามต้องการแล้วค่ะ