Error in routing the values from one sheet to another

Dear All,

I couldn't able to guess the error in the code shown below

My Requirement is to route the quantity entered in Shet "Receipts UF" by selecting the Item & its dependent Model & particular date in which Inward of a particular model is done.

Attached the file for your reference.

PHP Code: 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$E$9" Then
    Dim item As Long, ws2 As Worksheet, ws1 As Worksheet, item2 As String, item3 As String
    
    Set ws1 = Sheets("Receipts UF")
    
    item = ws1.Range("E2").Value
    item2 = ws1.Range("E6").Value
    
    item3 = Sheets("Receipts UF").Range("E4").Value
    Set ws2 = Sheets(item3)
    If item3 = "Production" Then
        r = Application.Index(ws2.Range("A1", "BK81"), Application.Match(item2, ws2.Range("A:A"), 0), Application.Match(item, ws2.Range("A1:BK1"), 0)).Address
    End If
    If item3 <> "Production" Then
        r = Application.Index(ws2.Range("A1", "BK81"), Application.Match(item2, ws2.Range("A:A"), 0), Application.Match(item, ws2.Range("A1:BK1"), 0) + 1).Address
    End If
    ws2.Range(r).Value = ws2.Range(r).Value + ws1.Range("E8").Value
    MsgBox ws1.Range("E8").Value & " pieces are added to " & ws1.Range("E4") & Chr(13) _
    & Chr(13) & "Model   " & ws1.Range("E6") & Chr(13) & Chr(13) & "On date " & ws1.Range("E2") & Chr(13) & Chr(13) & "Total is now  " & ws2.Range(r)
End If
End Sub 


Originally Posted by gmr4evr1

Your missing the quotes around the 2nd sheet name it should be

Please Login or Register  to view this content.

Edit* After looking at you workbook I noticed there isn't an Item3 sheet so the sheet name is likely incorrect??

Ok will check and get back to you

When I'm doing as per your instructions, getting error Subscript out of range

If I remove double quotations I'm getting error Type Mismatch

I don't know where I've gone wrong