Agora com o seu arquivo anexo.

Att.,

Não esta dando certo. Tentei de várias formas.

Grato

Diz que não é possivel abrir o arquivo especificado .

Grato

Experimente alterar, na fórmula, a extensão do arquivo. De ".xls" para ".xlsx" ou ".xlsm" (Para a extensão dos arquivos que você está tentando abrir).

Att.,

Resolvido, muito obrigado pela ajuda.

Grato

Se voce estiver utilizando o exemplo do colega Israel, ele se baseouem um arquivo xls; pelo seu exemplo crieoque a extensão deva ser xlsm
=HIPERLINK("C:Documents and SettingsAdministradorDesktopVidraçaria"&A7&".xlsm";"Abrir")
Então no codigo poderi ser assim:

Private Sub CommandButton1_Click()
Dim i As Long
i = Cells(Cells.Rows.Count, "A").End(xlUp).Row
'Selecionando o local onde será "fixado" o Hiperlink
Range("B" & i).Select 'considerando ser na celula B.
'Incluindo o hiperlink
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
            "C:Documents and SettingsAdministradorDesktopVidraçaria" & Range("A" & i).Value & ".xlsm", TextToDisplay:="" & "Abrir"
End Sub