Snasui Excel Forum

ขอโทษทีที่ไม่ได้ตอบครับ พอดีผมแก้ไขได้แล้วครับ

ทีนี้ผมอยากทราบวิธีที่จะ link โค้ด นี้ให้มันตรวจสอบกับอีกไฟล์งานหนึ่ง จะทำได้อย่างไรครับ

Sub Duplicate()

Dim lRow As Long, wsLRow As Long, i As Long
Dim aCell As Range
Dim ws As Worksheet, sh As Worksheet
Dim strSearch As String
Dim show As Integer

show = 0

Set sh = ActiveSheet()

With sh
'~~> Get last row in Col A of the sheet
'~~> which got activated
'lRow = sh.Range ...