[jimis]

προσπάθησα να το κάνω και την διπλα στήλη (την H) στα ακριβώς δίπλα κελιά άλλα δεν το μπόρεσα

ποιο συγκεκριμένα έκανα τον κώδικα που έδωσες ως εξής

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Sh1.Range("g18")) Is Nothing Then
        Exit Sub
    Else
        Sh1.Range("g23").NumberFormat = "hh:mm"
        Sh1.Range("g23").Value = Time

    End If
   If Intersect(Target, Sh1.Range("h18")) Is Nothing Then
        Exit Sub
    Else
        Sh1.Range("h23").NumberFormat = "hh:mm"
        Sh1.Range("h23").Value = Time
    End If

End Sub

ενώ συνεχίζει να λειτουργεί για την στήλη G στην Η δεν το αλλάζει..σου είναι εύκολο να μου πεις τι λάθος έκανα?