Format a Cell

For Formatting a cell for Medium Border on the cell, With White color of Text, Bold style and Black base of the cell, we can apply the following code:

Sheet3.Cells(1, 1).BorderAround xlContinuous, xlMedium, 1
Sheet3.Cells(1, 1).Interior.ColorIndex = 1
Sheet3.Cells(1, 1).Font.Bold = True
Sheet3.Cells(1, 1).Font.Color = vbWhite