Hi I have this code that is part of expense report, and not being able to tab out of the combo box is driving me insane. Does anyone here know what code I should be typing into the macro in order to have it tab out?

This is the macro I could find relating to the combo box.

Sub Delete()
'
Sheets(Array("VERSION FRANCAISE", "ENGLISH VERSION")).Select
Sheets("VERSION FRANCAISE").Activate

Range("H10:H32,H39:H61,H68:H90,K10:L32,K39:L61,K68:L90,A10:A32,A39:A61,A68:A90,B10:C32,B39:C61,B68:C90").Select
Selection.ClearContents
Range("I10:M32").Select
Selection.FillDown
Range("I32:M32").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=15
Range("I39").Select
ActiveSheet.Paste
Range("I39:M61").Select
Application.CutCopyMode = False
Selection.FillDown
Range("I61:M61").Select
Selection.Copy
ActiveWindow.SmallScroll Down:=18
Range("I68").Select
ActiveSheet.Paste
Range("I68:M90").Select
Application.CutCopyMode = False
Selection.FillDown
Range("A1").Select
ActiveWindow.SmallScroll Down:=-27
Application.Goto Reference:="R10C4"
ActiveCell.FormulaR1C1 = "1"
Range("D11:F11").Select
ActiveCell.FormulaR1C1 = "1"
Range("D12:F12").Select
ActiveCell.FormulaR1C1 = "1"
Range("D13:F13").Select
ActiveCell.FormulaR1C1 = "1"
Range("D14:F14").Select
ActiveCell.FormulaR1C1 = "1"
Range("D15:F15").Select
ActiveCell.FormulaR1C1 = "1"
Range("D16:F16").Select
ActiveCell.FormulaR1C1 = "1"
Range("D17:F17").Select
ActiveCell.FormulaR1C1 = "1"
Range("D18:F18").Select
ActiveCell.FormulaR1C1 = "1"
Range("D19:F19").Select
ActiveCell.FormulaR1C1 = "1"
Range("D20:F20").Select
ActiveCell.FormulaR1C1 = "1"
Range("D21:F21").Select
ActiveCell.FormulaR1C1 = "1"
Range("D22:F22").Select
ActiveCell.FormulaR1C1 = "1"
Range("D23:F23").Select
ActiveCell.FormulaR1C1 = "1"
Range("D24:F24").Select
ActiveCell.FormulaR1C1 = "1"
Range("D25:F25").Select
ActiveCell.FormulaR1C1 = "1"
Range("D26:F26").Select
ActiveCell.FormulaR1C1 = "1"
Range("D27:F27").Select
ActiveCell.FormulaR1C1 = "1"
Range("D28").Select
ActiveCell.FormulaR1C1 = "1"
Range("D29").Select
ActiveCell.FormulaR1C1 = "1"
Range("D30:F30").Select
ActiveCell.FormulaR1C1 = "1"
Range("D31:F31").Select
ActiveCell.FormulaR1C1 = "1"
Range("D32:F32").Select
ActiveCell.FormulaR1C1 = "1"
Range("D39").Select
ActiveCell.FormulaR1C1 = "1"
Range("D40").Select
ActiveCell.FormulaR1C1 = "1"
Range("D41").Select
ActiveCell.FormulaR1C1 = "1"
Range("D42").Select
ActiveCell.FormulaR1C1 = "1"
Range("D43").Select
ActiveCell.FormulaR1C1 = "1"
Range("D44").Select
ActiveCell.FormulaR1C1 = "1"
Range("D46").Select
ActiveCell.FormulaR1C1 = "1"
Range("D47").Select
ActiveCell.FormulaR1C1 = "1"
Range("D45").Select
ActiveCell.FormulaR1C1 = "1"
Range("D48").Select
ActiveCell.FormulaR1C1 = "1"
Range("D49").Select
ActiveCell.FormulaR1C1 = "1"
Range("D50").Select
ActiveCell.FormulaR1C1 = "1"
Range("D51").Select
ActiveCell.FormulaR1C1 = "1"
Range("D52").Select
ActiveCell.FormulaR1C1 = "1"
Range("D53").Select
ActiveCell.FormulaR1C1 = "1"
Range("D54").Select
ActiveCell.FormulaR1C1 = "1"
Range("D55").Select
ActiveCell.FormulaR1C1 = "1"
Range("D56").Select
ActiveCell.FormulaR1C1 = "1"
Range("D57").Select
ActiveCell.FormulaR1C1 = "1"
Range("D58").Select
ActiveCell.FormulaR1C1 = "1"
Range("D59").Select
ActiveCell.FormulaR1C1 = "1"
Range("D60").Select
ActiveWindow.SmallScroll Down:=15
ActiveCell.FormulaR1C1 = "1"
Range("D61").Select
ActiveCell.FormulaR1C1 = "1"
Range("D68").Select
ActiveCell.FormulaR1C1 = "1"
Range("D69").Select
ActiveCell.FormulaR1C1 = "1"
Range("D70").Select
ActiveCell.FormulaR1C1 = "1"
Range("D71").Select
ActiveCell.FormulaR1C1 = "1"
Range("D72").Select
ActiveCell.FormulaR1C1 = "1"
Range("D73").Select
ActiveCell.FormulaR1C1 = "1"
Range("D74").Select
ActiveCell.FormulaR1C1 = "1"
Range("D75").Select
ActiveCell.FormulaR1C1 = "1"
Range("D76").Select
ActiveCell.FormulaR1C1 = "1"
Range("D77").Select
ActiveCell.FormulaR1C1 = "1"
Range("D78").Select
ActiveCell.FormulaR1C1 = "1"
Range("D79").Select
ActiveCell.FormulaR1C1 = "1"
Range("D80").Select
ActiveCell.FormulaR1C1 = "1"
Range("D81").Select
ActiveCell.FormulaR1C1 = "1"
Range("D82").Select
ActiveCell.FormulaR1C1 = "1"
Range("D83").Select
ActiveCell.FormulaR1C1 = "1"
Range("D84").Select
ActiveCell.FormulaR1C1 = "1"
Range("D85").Select
ActiveCell.FormulaR1C1 = "1"
Range("D86").Select
ActiveCell.FormulaR1C1 = "1"
Range("D87").Select
ActiveCell.FormulaR1C1 = "1"
Range("D88").Select
ActiveCell.FormulaR1C1 = "1"
Range("D89").Select
ActiveCell.FormulaR1C1 = "1"
Range("D90").Select
ActiveCell.FormulaR1C1 = "1"
Range("D91").Select
ActiveWindow.LargeScroll Down:=-1
Range("D64").Select
ActiveWindow.LargeScroll Down:=-1
Range("D37").Select
ActiveWindow.LargeScroll Down:=-1
Range("G10").Select
ActiveCell.FormulaR1C1 = "1"
Range("G11").Select
ActiveCell.FormulaR1C1 = "1"
Range("G12").Select
ActiveCell.FormulaR1C1 = "1"
Range("G13").Select
ActiveCell.FormulaR1C1 = "1"
Range("G14").Select
ActiveCell.FormulaR1C1 = "1"
Range("G15").Select
ActiveCell.FormulaR1C1 = "1"
Range("G16").Select
ActiveCell.FormulaR1C1 = "1"
Range("G17").Select
ActiveCell.FormulaR1C1 = "1"
Range("G18").Select
ActiveCell.FormulaR1C1 = "1"
Range("G19").Select
ActiveCell.FormulaR1C1 = "1"
Range("G20").Select
ActiveCell.FormulaR1C1 = "1"
Range("G21").Select
ActiveCell.FormulaR1C1 = "1"
Range("G22").Select
ActiveCell.FormulaR1C1 = "1"
Range("G23").Select
ActiveCell.FormulaR1C1 = "1"
Range("G24").Select
ActiveCell.FormulaR1C1 = "1"
Range("G25").Select
ActiveCell.FormulaR1C1 = "1"
Range("G26").Select
ActiveCell.FormulaR1C1 = "1"
Range("G27").Select
ActiveCell.FormulaR1C1 = "1"
Range("G28").Select
ActiveCell.FormulaR1C1 = "1"
Range("G29").Select
ActiveCell.FormulaR1C1 = "1"
Range("G30").Select
ActiveCell.FormulaR1C1 = "1"
Range("G31").Select
ActiveCell.FormulaR1C1 = "1"
Range("G32").Select
ActiveCell.FormulaR1C1 = "1"
Range("G39").Select
ActiveCell.FormulaR1C1 = "1"
Range("G40").Select
ActiveCell.FormulaR1C1 = "1"
Range("G41").Select
ActiveCell.FormulaR1C1 = "1"
Range("G42").Select
ActiveCell.FormulaR1C1 = "1"
Range("G43").Select
ActiveCell.FormulaR1C1 = "1"
Range("G44").Select
ActiveCell.FormulaR1C1 = "1"
Range("G45").Select
ActiveCell.FormulaR1C1 = "1"
Range("G46").Select
ActiveCell.FormulaR1C1 = "1"
Range("G47").Select
ActiveCell.FormulaR1C1 = "1"
Range("G48").Select
ActiveCell.FormulaR1C1 = "1"
Range("G49").Select
ActiveCell.FormulaR1C1 = "1"
Range("G50").Select
ActiveCell.FormulaR1C1 = "1"
Range("G51").Select
ActiveCell.FormulaR1C1 = "1"
Range("G52").Select
ActiveCell.FormulaR1C1 = "1"
Range("G53").Select
ActiveCell.FormulaR1C1 = "1"
Range("G54").Select
ActiveCell.FormulaR1C1 = "1"
Range("G55").Select
ActiveCell.FormulaR1C1 = "1"
Range("G56").Select
ActiveCell.FormulaR1C1 = "1"
Range("G57").Select
ActiveCell.FormulaR1C1 = "1"
Range("G58").Select
ActiveCell.FormulaR1C1 = "1"
Range("G59").Select
ActiveCell.FormulaR1C1 = "1"
Range("G60").Select
ActiveCell.FormulaR1C1 = "1"
Range("G61").Select
ActiveCell.FormulaR1C1 = "1"
Range("G68").Select
ActiveCell.FormulaR1C1 = "1"
Range("G69").Select
ActiveCell.FormulaR1C1 = "1"
Range("G70").Select
ActiveCell.FormulaR1C1 = "1"
Range("G71").Select
ActiveCell.FormulaR1C1 = "1"
Range("G72").Select
ActiveCell.FormulaR1C1 = "1"
Range("G73").Select
ActiveCell.FormulaR1C1 = "1"
Range("G74").Select
ActiveCell.FormulaR1C1 = "1"
Range("G75").Select
ActiveCell.FormulaR1C1 = "1"
Range("G76").Select
ActiveCell.FormulaR1C1 = "1"
Range("G77").Select
ActiveCell.FormulaR1C1 = "1"
Range("G78").Select
ActiveCell.FormulaR1C1 = "1"
Range("G79").Select
ActiveCell.FormulaR1C1 = "1"
Range("G80").Select
ActiveCell.FormulaR1C1 = "1"
Range("G81").Select
ActiveCell.FormulaR1C1 = "1"
Range("G82").Select
ActiveCell.FormulaR1C1 = "1"
Range("G83").Select
ActiveCell.FormulaR1C1 = "1"
Range("G84").Select
ActiveCell.FormulaR1C1 = "1"
Range("G85").Select
ActiveCell.FormulaR1C1 = "1"
Range("G86").Select
ActiveCell.FormulaR1C1 = "1"
Range("G87").Select
ActiveCell.FormulaR1C1 = "1"
Range("G88").Select
ActiveCell.FormulaR1C1 = "1"
Range("G89").Select
ActiveCell.FormulaR1C1 = "1"
Range("G90").Select
ActiveCell.FormulaR1C1 = "1"
Range("G94").Select
ActiveWindow.SmallScroll Down:=-81
Range("B3:C3").Select
ActiveCell.FormulaR1C1 = "1"
Range("B5:C5").Select
Sheets("VERSION FRANCAISE").Select
Range("B5:C5").Select
Selection.ClearContents
Range("C7").Select


End Sub