Ignore the error message & dont show me the RTE message

[ipbr21054]

Hi,
The code in use is shown below.
In column F & G i have a date drop down where i can select a date etc.
Sometimes a date is not required so when i click in the cell i get an error message,basically its because there is no date there.
What can we do so i just dont see the error.
See screenshot of message & below is shown in yellow when i debug

Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' THIS WILL COLOUR ACTIVE CELL & KEEP INTERIOR COLOUR ONCE LEFT HAS BEEN LEFT
    Dim myStartCol As String
    Dim myEndCol As String
    Dim myStartRow As Long
    Dim myLastRow As Long
    Dim myRange As Range

    If Target.Cells.Count > 1 Then Exit Sub
    If Target.Value = "NEVER" Or Target.Value = "TBA" Or Target.Value Like "2###" Then Exit Sub


    Application.ScreenUpdating = False
    
'   *** Specify columns to apply this to ***
    myStartCol = "A"
    myEndCol = "K"

'   *** Specify start row ***
    myStartRow = 5
    
'   Use first column to find the last row
    myLastRow = Cells(Rows.Count, myStartCol).End(xlUp).Row
    
'   Build range to apply this to
    Set myRange = Range(Cells(myStartRow, myStartCol), Cells(myLastRow, myEndCol))
    
    '   Check to see if cell selected is outside of range
    If Intersect(Target, myRange) Is Nothing Then Exit Sub
    
    With Range("A" & Target.Row & ":K" & Target.Row)
       .Worksheet.Cells.FormatConditions.Delete
        .FormatConditions.Add xlExpression, , True
        .FormatConditions(1).Interior.Color = vbWhite
    End With
    
    With Sheet7.DTPicker1
    .Height = 40
    .Width = 40
    If Not Intersect(Target, Range("F5:G22")) Is Nothing Then
      .Visible = True
      .Top = Target.Top
      .Left = Target.Offset(0, 1).Left
      .LinkedCell = Target.ADDRESS
    Else
      .Visible = False
    End If
  End With
      
End Sub

 

[sijpie]

How about

 If Not Intersect(Target, Range("F5:G22")) Is Nothing and Len(target)>0 Then

 

[ipbr21054]

Same result

 

[sijpie]

On which code line does it fail?

 

[ipbr21054]

This is shown when I debug.

.LinkedCell = Target.ADDRESS

 

[sijpie]

What is this datepicker that you have on sheet7?
What type of control is it?
Does it have a linkedcell property, and if so, which type is this property? range? string? variant?

 

[ipbr21054]

Hi,
This is what i can advise.
Column F & G have the date pickers.
When the cell is selected i see a drop down arrow & clicking the arrow shows the calendar.