Sådan
Så er det klaret.. var ikke så svært... hvis du mener jeg kan gøre det lettere på en anden måde er du velkommen til skrive det...
Private Sub Worksheet_Activate()
Dim a As String
a = 17
nummer:
tid = InputBox("Type Text Please", "Using the VBA Input Box")
If tid = "111" Then GoTo slut
Range("G" & a).Select
ActiveCell.FormulaR1C1 = tid
Range("H" & a).Select
ActiveCell.FormulaR1C1 = Now()
Range("I" & a).Select
ActiveCell.FormulaR1C1 = a
a = a + 1
GoTo nummer
slut:
End Sub