Try Changing this part of your code:
Private Sub Image10_Click() 'add new record
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Sheet4")
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row 'find first empty row in database
Flag = True
If Not IsError(Application.Match(Me.txtTag, Sheets("Sheet4").Columns(10), 0)) Then 'Check Duplicate Record
MsgBox "That Tag Number is already assigned - try another"
Flag = False
End If
If Not IsError(Application.Match(Me.txtMontag, Sheets("Sheet4").Columns(14), 0)) Then 'Check Duplicate Record
MsgBox "Monitor Tag Number is already assigned - try another"
Flag = False
End If
If Not IsError(Application.Match(Me.txtPop, Sheets("Sheet4").Columns(18), 0)) Then 'Check Duplicate Record
MsgBox "Power On Password is InValid - try another"
Flag = False
End If
If Flag = True Then
Call Main
Bookmarks