Public gObjExcel As Excel.Application

Public Sub initXL()
	Set gObjExcel = New Excel.Application
End Sub

Public Sub killXL()
	gObjExcel.Quit
	Set gObjExcel = Nothing
End Sub

Public Function xlCeiling(dblNumber As Double, _
						dblSignificance As Double)
	xlCeiling = gObjExcel.Application.Ceiling(dblNumber, dblSignificance)
End Function