code on how to refer to a hide worksheet so can i get my unique id number

hope someone can help mebase Sheets"Database" is hide. I always get an error "select method of range class failed"

here's my code

Private Sub txtboxidnumber_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If txtboxidnumber.Value = True Then

Sheets("Database").Range("A101").Select
Range(Selection, Selection.End(xlDown)).Select

If (Selection.Find(What:=txtboxidnumber.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False)) Is Nothing Then

txtdate.Value = ""
txtissues.Value = ""
MsgBox ("No Record Found")
Else

iRow = (Selection.Find(What:=txtboxidnumber.Value, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Row)

txtdate.Value = Range("B" & iRow).Value
Me.txtdate.Enabled = False
cmbOU.Value = Range("C" & iRow).Value
Me.cmbOU.Enabled = False
cmbclassification.Value = Range("D" & iRow).Value
Me.cmbclassification.Enabled = False
txtissues.Value = Range("E" & iRow).Value
Me.txtissues.Enabled = False
txtresolution.Value = Range("F" & iRow).Value
Me.txtresolution.Enabled = False
cmbactionby.Value = Range("G" & iRow).Value
Me.cmbactionby.Enabled = False
txtpriority.Value = Range("H" & iRow).Value
Me.txtpriority.Enabled = False
cmbstatus.Value = Range("I" & iRow).Value
Me.cmbstatus.Enabled = False
txtdateresolved.Value = Range("J" & iRow).Value
Me.txtdateresolved.Enabled = False

With UserForm2
txtboxidnumber.SetFocus
End With
End If

'ws.Cells(iRow, 1).Value = Me.txtboxidnumber.Value
'ws.Cells(iRow, 2).Value = Me.txtdate.Value
'ws.Cells(iRow, 3).Value = Me.cmbOU.Value
'ws.Cells(iRow, 4).Value = Me.cmbclassification.Value
'ws.Cells(iRow, 5).Value = Me.txtissues.Value
'ws.Cells(iRow, 6).Value = Me.txtresolution.Value
'ws.Cells(iRow, 7).Value = Me.cmbactionby.Value
'ws.Cells(iRow, 8).Value = Me.txtpriority.Value
'ws.Cells(iRow, 9).Value = Me.cmbstatus.Value
'ws.Cells(iRow, 10).Value = Me.txtdateresolved.Value
End If
End Sub

sorry for that as i am new here :

Please Login or Register  to view this content.