Erro ao chamar função no Excel

Olá a todos do Fórum!

Estou com alguns probleminhas no meu código no Excel. A função que eu coloquei no módulo coloca dois links (um em cada célula de uma planilha de laboratórios) e estas células vão p/ uma outra célula de uma outra planilha (tudo na mesma Pasta de Trabalho).

Só que quando eu vou chamar esta função pela combo, ele executa o código da função direitinho, mas quando acaba de executar dá este erro: "O objeto é obrigatório" e pára o programa. A Fução é:

CODE

Function Link_DoisDias(Dia1, Dia2) Sheets("Laboratorios (2)").Select

 Range(Dia1).Select

 Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Rodrigo!C3", TextToDisplay:=Plan1.Name

 Range(Dia2).Select

 Selection.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Rodrigo!C3", TextToDisplay:=Plan1.Name

End Function

E eu chamo a função na combo assim:

CODE
ElseIf cmbDiasD1.Text = "Segunda e Quarta" Then

'Verifica o valor 1ª da combo dos Labs

If cmbSala1.Text = "Lab1" Then

'Função que coloca os links na planilha dos labs

Link_DoisDias("B3", "J3")

'Troca a cor da célula

With Plan9.Range("B3").Interior

.ColorIndex = 15

.Pattern = xlSolid

End With

Valeu gente! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif