Untitled

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim column_count As Integer
column_count = Application.WorksheetFunction.CountA(Range("2:2"))

If Target.Column >= 4 Then
    If Cells(2, Target.Column).Value <> "" And Cells(Target.Row, 1) <> "" Then
        If Target.Value = "x" Then
            Target.Value = "Ï"
        ElseIf Target.Value = "Ï" Then
            Target.Value = "Ð"
        ElseIf Target.Value = "Ð" Then
            Target.Value = "x"
        Else
            Target.Value = "x"
        End If
    End If
''''''''''''''apply for same for all

If Target.Column = 4 Then
    Range("E" & Target.Row, Cells(Target.Row, column_count)).Value = Target.Value
    

End If

End If



End Sub