Macro to bold certain text in Message Box

[howard]

I have the following code below

I would like to have Yes and NOT in bold when message box pops up when code is activated

It would be appreciated if someone could kindly amend my code

 Sub Formula_checks()
    Dim response As Variant
    
    
response = MsgBox("Select " & vbBold & "Yes" & vbBold & " if data has has " & vbBold & "NOT" & vbBold & " been imported for the first time this month? Click Yes to run the code, or No to exit.", vbYesNo + vbQuestion, "Data Check")

    If response = vbYes Then
       
        Dim ws As Worksheet
        Dim Lr As Long
        
        Set ws = ThisWorkbook.Sheets("Import Templates last updated")
        Lr = ws.Cells(ws.Rows.count, "A").End(xlUp).Row
        
        ws.Range("D1:D" & Lr).formula = "=IFERROR(VLOOKUP(C1,'Reports Ready for checking'!C:E,COLUMNS(C:E),FALSE),"""")"
   ws.Range("D1:D" & Lr).Value = ws.Range("D1:D" & Lr).Value
    Else
        Exit Sub ' Exit the subroutine if the user chooses not to run the code
    End If
End Sub [code]

 

[bebo021999]

You can't directly apply formatting to text in a MsgBox.
However, you can create a custom UserForm that mimics a message box and allows you to format text.

 

[howard]

Thanks for clarifying