You didn't say so!!! Always nice to fully state your problem in the first
post.
Perhaps you could delete sheets that don't have something in a PARTICULAR
cell.

If Sheets(i).Cells(1, 1) = "" Then

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"James" wrote in message
...

This works great, I have one problem. I can use this in a new workbook
with
unnamed sheets. but when I put it into our template with named sheets I
loose
all the sheets but the first one. The other sheets already have questions
to
answer so they are pre-populated. Do i need to protect cells that have
user
notes in them first.

"Don Guillett" wrote:

Try this
Sub idsheets()
Application.DisplayAlerts = False
For i = Sheets.Count To 2 Step -1
If Sheets(i).UsedRange.Cells(1, 1) = "" Then
Sheets(i).Delete
End If
Next i
Application.DisplayAlerts = True
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"James" wrote in message
...
I need a macro to export only the first sheet of a workbook and the
sheet
that was populated. ie: first sheet always in use with hyperlinks to
other
sheets. once a hyperlinked sheet is chosen and populated I need a
button
called export to only save the first sheet and the sheet populated
dropping
off all the other sheets not used with the outcome of a new workbook to
save
and e-mail. Any help would be greatful. Thank you