Rui, você está chamando a macro pesquisanome na inicialização do UserForm.
Entretanto, observe que a ComboBox1 ainda não tem valor, portanto, retorna o erro ao tentar atribuir uma guia com nome vazio:
Sub pesquisanome()
...
nsheets = UserForm20.ComboBox1.Value
n = nsheets
Set nsheet = Sheets(nsheets)
Verifique se precisa mesmo chamar esta macro na inicialização.
Como depende da ComboBox1, poderia chamá-la apenas no evento Change deste controle.
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 27/02/2017 12:02 pm