Running a macro on combo box selection

Depends on the control. If you use the Control Toolbox toolbar's Combobox, doubleclick it and type in the commands or macro to play. Click the design button to enable the combobox.

If you use the Form toolbar's Combobox, right click it and Assign your macro.

I'm on Excel 2007 so I have a choice of tool's or ActiveX combo boxes.

I want to run a different macro based on the combo selection.

You can use the value or the selected index. I used A1:A4 for the ListFillRange with values of 1-4. Use one of these 2 methods. Replace 1 or 2 at the end of the sub's Change with nothing to use it as the change event.

Obviously, you need to replace MsgBox with the name of your sub to run based on the value or index selected.

Private Sub ComboBox1_Change1()
  Select Case ComboBox1.Value
    Case 0: MsgBox "0"
    Case 1: MsgBox "1"
    Case 2: MsgBox "2"
    Case 3: MsgBox "3"
    Case Else: MsgBox "NA"
  End Select
End Sub

Private Sub ComboBox2_Change()
  Select Case ComboBox1.ListIndex 'Index 0 based
    Case 0: MsgBox "1"
    Case 1: MsgBox "2"
    Case 2: MsgBox "3"
    Case Else: MsgBox "NA"
  End Select
End Sub

How do I allow a macro to change tabs, at the moment I could record the macro for a certain tab but it will only run on the one I triggered it from.

Here you go:

Sub Macro5()
'
' Macro5 Macro
'

'
    Range("E6").Select
    ActiveCell.FormulaR1C1 = _
        "=(R[5]C*'Database 3'!R[93]C[24])-R[5]C/3*'Database 3'!R[93]C[26]"
    Range("E7").Select
    ActiveCell.FormulaR1C1 = _
        "=(R[3]C*'Database 3'!R[92]C[24])-R[3]C/3*'Database 3'!R[92]C[26]"
    Range("E17:F18").Select
    ActiveCell.FormulaR1C1 = "24 Tanned Hides, Needle, Thread and 2 space fillers"
    With ActiveCell.Characters(Start:=1, Length:=51).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    Range("C7:C8").Select
    ActiveCell.FormulaR1C1 = "Tanned D'hide's to bodys (Green)"
    With ActiveCell.Characters(Start:=1, Length:=32).Font
        .Name = "Calibri"
        .FontStyle = "Regular"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .ThemeColor = xlThemeColorDark1
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
    Range("C13").Select
    ActiveCell.FormulaR1C1 = "=General!R[33]C[2]"
    Range("C14").Select
    ActiveWindow.SmallScroll Down:=28
    Range("A32").Select
    ActiveCell.FormulaR1C1 = "62"
    Range("A33").Select
    ActiveWindow.SmallScroll Down:=-56
End Sub