adding checkmark in excel 365

Question

So I'm not very familiar with all of the options excel has and I am just not finding my answer on my own. We use office 365 and I am creating a spreadsheet to track attendance at work events. I would love to be able to just have a checkmark in the box for attendance. Since there are multiple events the easiest way would be to just type a space in the cell and have it automatically change to a checkmark. Right now what I've been doing is using wingdings and inserting the symbol, but this can be time-consuming. 

I saw some directions for this on a different website but it was for an old version of excel and I couldn't figure out how to do it in 365.

FYI I think we have office 365 for business. I work at a university. Not sure if that makes a difference.

Answer 1

You can format the range as Marlett, then enter an "a" for a checkmark. You could also use a change event to alter any entry in the range to that.

Private Sub Worksheet_Change(ByVal Target As Range)

'   Code goes in the Worksheet specific module

    Dim rng As Range

    '   Set Target Range, i.e. Range("A1, B2, C3"), or Range("A1:B3")

        Set rng = Target.Parent.Range("D:D")

        '   Only look at single cell changes

            If Target.Count > 1 Then Exit Sub

        '   Only look at that range

            If Intersect(Target, rng) Is Nothing Then Exit Sub

        '   Action if Condition(s) are met (do your thing here...)

            Application.EnableEvents = False

                With Target

                    .Value = "a"

                    With .Font

                        .Name = "Marlett"

                        .FontStyle = "Bold"

                        .Size = 14

                        .Strikethrough = False

                        .Color = 5287936

                    End With

                    .HorizontalAlignment = xlCenter

                End With

            Application.EnableEvents = True

End Sub

HTH