Visit Planner

Hi rakeshtalwar 

Please see the attached file, when you double click on the cell It will tick mark after 6 days. One slight change I have made instead of entering the tick icon I have replace the value with "a" and the font remains the same "Webdings"

Below code can be used in the worksheet module:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Coded By : Faraz Shaikh - www.ExcelExciting.com | 24.02.2020
Dim rowNo, colNo As Integer
    rowNo = ActiveCell.Row
    colNo = ActiveCell.Column
    i = ActiveCell.Value
    
   Do Until IsEmpty(Cells(2, colNo))
    Cells(rowNo, colNo).Select
        ActiveCell.Value = i
        colNo = colNo + 6
   Loop

    MsgBox "Task Completed", vbInformation, "Faraz Shaikh | ExcelExciting.com"
    
End Sub

Hope this resolves your query & don't forget mark as Best Response if your query is resolved.