Tark221

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Dim xlApp As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Workbooks.Open ("\\henry\LiddlM1\AIP\Teamtool.xls")
Set ws = xlApp.ActiveWorkbook.Worksheets(ComboBox3)
s.Select

Hmnmm getting type mismatch error on the highlighted line above, it is not liking this code lol