Sub ScratchMacro()
If MsgBox("Do you mean change the document font with VBA?", vbYesNo,
"Question") = vbYes Then
ActiveDocument.Range.Font.Name = "Franklin Gothic Book"
Else
MsgBox "Try providing enough detail in the question to obtain a meaningful
answer" _
& " or posting in an appropriate group."
End If
End Sub