Error Trying To Change The Text Color In A Cell (VBA)

[Ark68]

Consider this piece of code...

    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        'check for valid date
        If IsDate(KeyCells.Value) = False Then
            mbevents = False
            ws_master.Range("M1").Value = "Enter valid date (month/day)"
            ws_master.Range("M1").Font.Color = RGB(192, 57, 43)
            mbevents = True
        End If
        Exit Sub
    End If

The line highlighted in red is giving me an error: "Application-defined or object defined error".

Is anyone able to isolate the problem and suggest a resolution.

Note, the worksheet is protected, but the cell is unlocked (there are no issues with applying the value to the same cell). Cell M1 is a merged cell, but even when I try to unmerge I get the same error.

ws_master.Range("M1").unmerge

 

[Fluff]

Yet another reason not to use the abomination that is merged cells.
You will need to unprotect the sheet.

 

[Ark68]

Thanks Fluff, I have learned that the better option to avoid merging cells is to use the centeracrossselection horizontal alignment.
But in this case, I am merged both vertically and horizontally. Is there a way I can combine a range M1:Q2 without merging?

 

[Fluff]

Not that I'm aware of.

 

[Ark68]

Thanks Fluff ... objective achieved. I appreciate your help!

 

[Fluff]

Glad you sorted it & thanks for the feedback.

 

[RoryA]

If you allow formatting cells when you protect the sheet, you shouldn't have to unprotect to change the font colour in an unlocked cell.