Sets to True the Bold property of the Font object contained in the Range object
Sub bold() range("A1").font.bold = True End Sub