Aprire e chiudere userforma da cella definita

 
Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Dim indirizzo As String 
indirizzo = Target.Address 
Select Case indirizzo     
   Case "$D$13"     
   Range("D13").Select     
     With Selection.Font         
     .ThemeColor = xlThemeColorLight2         
     .TintAndShade = 0.399975585192419     
     End With         
  UserForm1.Show      

  End Select 
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("$D$13")) Is Nothing Then
     With Target.Font
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
     End With
    UserForm1.Show
End if
End Sub

Public colore As Long, tema As Single

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim indirizzo As String
indirizzo = Target.Address
Select Case indirizzo
    Case "$D$13"
    With Target.Font
        colore = .ThemeColor
        tema = .TintAndShade
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = 0.399975585192419
    End With
    UserForm1.Show
End Select

Private Sub UserForm_Terminate()
    With Sheets("Start")
      With Selection.Font
        .ThemeColor = colore
        .TintAndShade = tema
      End With
    End With
End Sub

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("$D$13")) Is Nothing Then
    If Not IsUserFormLoaded("UserForm1") Then
        UserForm1.Show vbModeless
        'qui i tuoi colori etc             '<<<<<<<<<<<<<<<<<<<<
    Else
        Unload UserForm1
        'qui ripristini i tuoi colori etc  '<<<<<<<<<<<<<<<<<<<<
    End If
End If
Cancel = True
End Sub

Function IsUserFormLoaded(ByVal UFName As String) As Boolean
    Dim UForm As Object
     
    IsUserFormLoaded = False
    For Each UForm In VBA.UserForms
        If UForm.Name = UFName Then
            IsUserFormLoaded = True
            Exit For
        End If
    Next
End Function

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then
    Cancel = True
    MsgBox "Doppio click su D13 per chiudere"
End If
End Sub