อธิบายยากครับ เอาของพี่ไปดูละกันนะ Option Explicit ------------------------------------------------------------------------------------------------------------------ Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Selection.Count = 1 Then If Not Intersect(Target, Range("D15")) Is Nothing Then ' Call SSAALLEE01 ....... ( ชื่อมาโครที่ใช้คิดเงิน ) Dim LocationPort As String LocationPort = "Com3" ...... ( ชื่อช่องเสียบ USB เครื่องคิดเงิน ) Open LocationPort & ":9600,n,8,1" For Output As #1 Print #1, "" Close #1 Exit Sub End sub