Здравствуйте уважаемые знатоки VBA!
Помогите доработать макрос до нужного функционала.
Макрос вводит дату из календаря в одну ячейку, но хочется, чтобы автоматически в соседней ячейке фиксировалась дата ввода, а в другой ячейке - имя пользователя вводившего эту дату из календаря. Вот макрос:

Private Sub Calendar1_Click()
s1 = Calendar1.Day
s2 = Calendar1.Month
s3 = Calendar1.Year
ActiveCell = DateSerial(s3, s2, s1)
Calendar1.Today
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
result = False
s = ActiveCell.Address(RowAbsolute:=False, columnabsolute:=False, ReferenceStyle:=xlA1)
result = (s Like "H*") Or (s Like "I*")
Calendar1.Left = ActiveCell.Left + ActiveCell.Width
Calendar1.Top = ActiveCell.Top + ActiveCell.Width
If result = True Then Calendar1.Visible = True Else Calendar1.Visible = False
End Sub

Буду признателен, если кто поможет.

orunbekХм... во первых вопрос не в том разделе->Microsoft Office
во вторых, если автоматически дата изменения вставлялась, то нужно вставить код в листа


Спасибо, хотя разобраться было сложно, но вот "strUserName" не работает, нужно ли для него установить какой-то add-in или можно ли обойтись без него?

NKVD333 orunbekХм... во первых вопрос не в том разделе->Microsoft Office
во вторых, если автоматически дата изменения вставлялась, то нужно вставить код в листа


Спасибо, хотя разобраться было сложно, но вот "strUserName" не работает, нужно ли для него установить какой-то add-in или можно ли обойтись без него?
Еще раз огромное спасибо, оказывается надо было = Application.UserName