I tried to find the answer by searching, but could not.

I'm using code like the following to format cells. I can do everything I
want except set decimal places. Is there a way to do this following the
pattern below?

With objActiveWkb.Worksheets("Sheet1").Cells(I, K)
.Select
.Font.Name = "Arial"
.Font.Size = 8
.HorizontalAlignment = xlCenter
End With

Thanks in advance,
Clint Herman