Sub References_RemoveMissing()
'Macro purpose: To remove missing references from the VBE
Dim theRef As Variant, i As Long
On Error Resume Next
For i = ThisWorkbook.VBProject.References.Count To 1 Step -1
Set theRef = ThisWorkbook.VBProject.References.Item(i)
If theRef.isbroken = True Then
ThisWorkbook.VBProject.References.Remove theRef
End If
Next i
If Err <> 0 Then
MsgBox "A missing reference has been encountered!" _
& "You will need to remove the reference manually.", _
vbCritical, "Unable To Remove Missing Reference"
End If
On Error GoTo 0
End Sub
Private Sub Workbook_Open()
Call References_RemoveMissing
End Sub
https://www.microsoft.com/en-us/download/details.aspx?id=7030
Extrair o conteúdo utilizando o comando abaixo:
msiexec /a VB60SP6-KB2708437-x86-ENU.msi /qb TARGETDIR=<DIR>
Na pasta Cabinets encontrar o arquivo mscomct2.cab e extraí-lo
Clicar com o botão direito no arquivo mscomct2.inf e em seguinda “Instalar”
MsgBox Application.DecimalSeparator & " " & Application.ThousandsSeparator