increase decimal
 

I'm trying to use the following code to increase the decimal of the
active cell.

Sub IncreaseDecimal()
Application.CommandBars.FindControl(ID:=398).Execu te
End Sub

I'm getting the eror "object variable or with block variable not
set". Anyone know what the problem is? Many thanks for your help!

Cass