This procedure is not working. After the procedure has run, I can go to
editfind and it finds my value whats wrong here, please help. It displays
the message for error 91.

Private Sub CommandButton1_Click()

Dim x As Workbook

OrderToFind = ActiveSheet.Range("E17").Value
TrackingWorkbook = "\\Fs1\Material\Scheduling\OrderTracking.xls"
myvalue = ActiveSheet.Range("F15").Value


' Check if workbook is already opened.
On Error Resume Next
Set x = Workbooks("OrderTracking1")
If Err = 0 Then
Windows("OrderTracking1").Activate
Else
Workbooks.Open Filename:=TrackingWorkbook
End If

Sheets("To Finish").Select
'Find the order numbers comment line
Cells.Find(What:=OrderToFind & " Count", LookIn:=xlValues,
LookAt:=xlPart).Activate

If Err = "91" Then
MsgBox "Could not find Order#: " & OrderToFind
Exit Sub
End If

'Offset to the correct column and insert data
ActiveCell.Offset(, 32).Value = myvalue

End Sub