Are you trying to select Cell EF87 on worksheet "Bill of Material"?
If so, I'm not sure why you are using Sheet1.
You should be able to do something like this:
' Zoom_To_Total Macro
'Takes you to a grand total of items in the Bill of materials work sheet
Sub Zoom_to_total()
On Error GoTo theerror1 'End the Sub on error
Worksheets("Bill of Materials").Select 'Error If not Bill of Materials Work Sheet
Range("EF87").Select
theerror1: End
End Sub