Add data through user form

Hi,

Use below codes..

    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets
        ws.Activate

'Check if Visa No exits in database.
    If Not rng.find(TextBox1, , LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, _ 
    SearchDirection:=xlPrevious, MatchCase:=False) Is Nothing Then
    response = MsgBox("Visa No. '" & TextBox1 & " 'already exits in database" _
    + vbCrLf + " " + vbCrLf + "  - Lets Make Life Easier...", _
    vbOKOnly + vbInformation, "Approval Entry (Date Format Issue)")
    Exit Sub
    End If
  Next

Regards
taps