Eu fiz o Seguinte Codigo para apagar tudo apenas digitando o valor ID , Mas depareime com um problema ! Ao tentar eliminar , se eu tentar apagar utilizadores e se tiver com outro Planilha aberto o Programa apaga na planilha que esta aberta !

Quando você faz um Range("A2").select, ele faz o select na planilha ativa, se você quiser especificar em qual planilha você quer que ele faça o select, ou em qual workbook ele faça o select
você precisa especificar isso

workbooks("suaplanilha.xlsm").worksheets("Util_Reg").range("A2").select

Considerando que você tenha outras Pastas do Excel abertas, esse seria o código

também não entendi qual o objetivo de você ter feito set na Worksheets("Util_Reg"), sem ter que utilizar ele mais tarde

Continua dando Erro , Tou mesmo aflito ... Ajudem :/

Private Sub CommandButton3_Click()
Dim Ws1 As Worksheet

Set Ws1 = Worksheets("Armazens")

Workbooks("Armazens.xlsm").Worksheets("Armazens").Range("A2").Select

For Apagar = 1 To 200

If ActiveCell = TextBox1.Text Then
ActiveCell.EntireRow.Delete

End If
ActiveCell.Offset(1, 0).Activate
Next
Workbooks("Armazens.xlsm").Worksheets("Armazens").Range("A2").Select

MsgBox "Eliminado Com Sucesso!"

TextBox1.Text = ""
End Sub

O erro que diz é o Seguinte .

NAO FOI POSSIVEL EXECUTAR O METODO SELECT DA CLASS RANGE

Dim Ws1 As Worksheet
Set Ws1 = Worksheets("Armazens")
Ws1.Select
Ws1.Range("A2").Select
For Apagar = 1 To 200

If ActiveCell = TextBox1.Text Then
ActiveCell.EntireRow.Delete

End If
ActiveCell.Offset(1, 0).Activate
Next
Worksheets("Armazens").Range("A2").Select

MsgBox "Eliminado Com Sucesso!"

TextBox1.Text = ""

Continua dando Erro , Tou mesmo aflito ... Ajudem :/

Private Sub CommandButton3_Click()
Dim Ws1 As Worksheet

Set Ws1 = Worksheets("Armazens")

Workbooks("Armazens.xlsm").Worksheets("Armazens").Range("A2").Select

For Apagar = 1 To 200

If ActiveCell = TextBox1.Text Then
ActiveCell.EntireRow.Delete

End If
ActiveCell.Offset(1, 0).Activate
Next
Workbooks("Armazens.xlsm").Worksheets("Armazens").Range("A2").Select

MsgBox "Eliminado Com Sucesso!"

TextBox1.Text = ""
End Sub

O Erro está em ActiveCell. Tenta assim:

Private Sub CommandButton3_Click()

Dim Wbk As Workbook
Dim Ws1 As Worksheet

Set Wbk = Workbooks("Armazens.xlsm")
Set Ws1 = Wbk.Worksheets("Armazens")

Wbk.Activate
Ws1.Activate
Ws1.Range("A2").Select

For apagar = 1 To 200

If ActiveCell = TextBox1.Text Then
ActiveCell.EntireRow.Delete

End If
ActiveCell.Offset(1, 0).Activate
Next
Ws1.Range("A2").Select

MsgBox "Eliminado Com Sucesso!"

TextBox1.Text = ""
End Sub

Nesse caso aconcelho usar o code abaixo.

Private Sub CommandButton3_Click()

Dim Ws1 As Worksheet
Dim X As Long


Set Ws1 = Workbooks("Armazens.xlsm").Worksheets("Armazens")

X = 1
Do
    X = X + 1
    
    
    'If Ws1.Cells(X, 1) = TextBox1.Text Then
    If Ws1.Cells(X, 1) = 2 Then
        Ws1.Cells(X, 1).EntireRow.Delete
        X = X - 1
    End If
    
    If X = 200 Then Exit Do 'ele sai do LOOP
Loop

MsgBox "Eliminado Com Sucesso!"

TextBox1.Text = ""

End Sub

Continua dando Erro , Tou mesmo aflito ... Ajudem :/

Private Sub CommandButton3_Click()
Dim Ws1 As Worksheet

Set Ws1 = Worksheets("Armazens")

Workbooks("Armazens.xlsm").Worksheets("Armazens").Range("A2").Select

For Apagar = 1 To 200

If ActiveCell = TextBox1.Text Then
ActiveCell.EntireRow.Delete

End If
ActiveCell.Offset(1, 0).Activate
Next
Workbooks("Armazens.xlsm").Worksheets("Armazens").Range("A2").Select

MsgBox "Eliminado Com Sucesso!"

TextBox1.Text = ""
End Sub

Fiz o teste usando o script acima, e funcionou corretamente sem erro