Snasui Excel Forum

Code: Select all

'Other code
  If Target.Validation.Type = 3 Then
   Cancel = True
    Application.EnableEvents = False
    str = Target.Validation.Formula1
    'str = Right(str, Len(str) - 1)
    With cboTemp
      .Visible = True
      .Left = Target.Left
      .Top = Target.Top
      .Width = Target.Width + 15
      .Height = Target.Height + 5
      .ListFillRange = Worksheets("Validationlists").Name _
        & "!" & Worksheets("Validationlists").Range("a1").CurrentRegion.Address
      .LinkedCell = Target.Address
    End With
'Other code