Easy Checkbox control help please

[Armster]

Silly newbie question really

Basically i have the following checkbox in a script I have wrote, I need it to place (preferably in the name of the check box, though in the adjacent cell will do just as well) the current Date, when the checkbox is checked.

I get an error on the .onaction part

can you point me to the right direction

thanks

Dave

    ActiveSheet.CheckBoxes.Add(Cells(irow, 4).Left, Cells(irow, 4).Top, 10, 10).Select
        With Selection
        .Placement = xlMove
        .PrintObject = True
        .Value = xlOff
        .Characters.Text = "Form Response"
'       .OnAction = "customize"
        .OnAction = (Cells(irow, 5) = Date)
        .ShapeRange.Width = 150
        End With
    irow = irow + 1

 

[Andrew Poulsom]

You need to write your customize procedure:

Sub customize()
    ActiveSheet.CheckBoxes(Application.Caller).TopLeftCell.Offset(0, 1).Value = Date
End Sub

 

[Armster]

the customize macro is commented out as I was thinking that using the .OnAction command could be called or another subcommand of the checkbox to make the Date be place in the adjacent cell ?

 

[Andrew Poulsom]

The OnAction property expects the name of a macro, not the actual macro code. Did you try setting it to "customize" and adding the procedure I posted?

 

[Armster]

yes it worked, many thanks. Now I can send it off to my director and keep him happy for a day or 2