Apertura di un form

[Gianni]

Un cordiale saluto a tutti.

problema strano ....... ovviamente per me.
Ho inserito due pulsanti in un foglio di excel.

1° Pulsante = CommandButton1
Associato al seguente codice

Private Sub CommandButton1_Click()
UserForm1.Show
End Sub
----------------------------------

2° Pulsante = CommandButton2
Associato al seguente codice

Private Sub CommandButton2_Click()
frmRubrica.Show
End Sub

e mi và in errore con il seguente avviso

Errore di run-time ‘1004’:
Errore nel metodo Select per la classe Range

Gentilmente chi può darmi una spiegazione in merito?
Grazie
Gianni

[Gianni]

Ho nel frattempo ho rifatto il form e copiato tutti i codici.

Il form mi si apre regolarmente.
Ho inserito l'ultima Routine, la seguente e mi esce l'errore descritto prima:
questa è la routine

Private Sub UserForm_Initialize()
'Conta i record presenti nel foglio " Rubrica"
Worksheets(2).Range("B3").Select
Dim WB As Workbook
Dim SH As Worksheet
Dim rng As Range
Worksheets("Rubrica").Range("B3").Select
Set WB = ThisWorkbook
Set SH = WB.Sheets("Rubrica")
Set rng = SH.Range("B" & Rows.Count).End(xlUp)

With Me.TextBox16

.Text = rng.Row - 2
.Enabled = False
End With
End Sub