lookup worksheet name

[Asp1978]

how to find the sheet name (section name ) when you type employee no. in a cell? A workbook has 15 sheets named as per sections of the department.In each section has 100 employees in range A2:A101with unique employee no. I have a list of 50 employee nos in different sections. In a new work sheet how to find the section name which corresponds to the employee no.

 

[offthelip]

try this code:

Sub test()
Dim ws As Worksheet


empno = ActiveCell.Value


For Each ws In Worksheets
 ws.Activate
  inarr = Range("a2:a101")
  For i = 1 To 100
   
   If empno = inarr(i, 1) And inarr(i, 1) <> "" Then
     wsname = ws.Name
     MsgBox (wsname)
     Exit For
   End If
  Next i
 
Next
End Sub