combobox is used on another spreadsheet "scan" that will activate this inputbox that will change data kept in another spreadsheet named "batch"
when "batchform" is entered into this combobox I want the inputbox to open and ask for a part number that will search in spreadsheet "batch" - then once its found the inputbox would ask for the batch number which once entered will over write the current number.
Dim partNum As String
Dim batch As String
partNum = InputBox("Enter the part number you wish to search for")
' See if part number found in column A on "Batch" sheet
On Error GoTo not_found
Columns("A:A").Find(What:=partNum, After:=Range("A1"), LookIn:=xlFormulas _
, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
On Error GoTo 0
' Prompt for new batch number
batch = InputBox("Enter the new batch number")
ActiveCell.Offset(0, 1) = batch
'Error handling if part number not found
MsgBox "Cannot find part number " & partNum & " on Batch sheet", vbOKOnly, "ERROR!"