aceleracion de rutina VB de excel

[fire384]

Hola
Tengo una hoja de Excel con varios combobox y sus correspondientes listas desplegables.
El caso es en función de la selección en la lista desplegable 1 (países) se activa o aparece el combo box correspondiente a ciudades de ese país, funciona todo muy bien aparecen y desaparecen, perfecto, lo único es que cada vez que selecciono un país se queda la hoja como pensando, anexo la rutina a ver que me pueden decir para agilizarla un poco. Claro son como 60 combobox esto es solo un pedazo de la rutina entera.
Saludos
Eduardo
Private Sub ComboBox1_Change()

Range("D6") = "C.P. O NOMBRE CIUDAD"
'Range("D6").Font.Size = 11

End Sub
Private Sub Worksheet_Calculate()

Dim PAIS As String
'Range("D6").Font.Size = 11
PAIS = Range("P7").Value

If PAIS <> "BAHAMAS" Then
ComboBox2.Visible = False
Else: ComboBox2.Visible = True
End If
If PAIS <> "BRUNEI" Then
ComboBox3.Visible = False
Else: ComboBox3.Visible = True
End If
If PAIS <> "CAMBOYA" Then
ComboBox4.Visible = False
Else: ComboBox4.Visible = True
End If
If PAIS <> "CHILE" Then
ComboBox5.Visible = False
Else: ComboBox5.Visible = True
End If
If PAIS <> "COLOMBIA" Then
ComboBox6.Visible = False
Else: ComboBox6.Visible = True
End If
If PAIS <> "ECUADOR" Then
ComboBox7.Visible = False
Else: ComboBox7.Visible = True
End If
If PAIS <> "EL SALVADOR" Then
ComboBox8.Visible = False
Else: ComboBox8.Visible = True
End If
END SUB