Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$4" Then
Target.Value = ""
Load UserFormRegion
UserFormRegion.Show
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = "$C$35" Then
Target.Value = ""
Load whitegrape
whitegrape.Show
End If
End Sub