We are inserted selected sheets into a workbook. Some of the sheets are to
reference others if the others have been inserted. I have some code that is
supposed to skip to a label if a referenced sheet has not been added to the
workbook.

It does not work. Can you tell me why?

When testing the code, the €œSteel€� sheet is present and the €œJoists€� and
€œDeck Erect€� sheets are not. The code works fine until it tries to select
the €œDeck Erect€� sheet. The program stops with €œSubscript out of range€�.

I have tried €œResume 295€� (which is the next line of code) but get a
Compile Error €œLabel not defined€�.


Sub SetErectRecapRanges()

Sheets("Erect Recap").Select

€˜< some code to name ranges

On Error GoTo SkipSteel
Sheets("Steel").Select €˜If sheet €œSteel€� does not exist, code is to
resume at €œSkipSteel:€�
Sheets("Erect Recap").Select

€˜< some code to reference the €œSteel€� sheet in the €œErect Recap€� sheet

SkipSteel:
On Error GoTo 0
On Error GoTo SkipJoists
Sheets("Joists").Select €˜If sheet €œJoists€� does not exist, code is
to resume at €œSkipJoists:€�
Sheets("Erect Recap").Select

€˜< some code to reference the €œJoists€� sheet in the €œErect Recap€� sheet

SkipJoists:
On Error GoTo 0
On Error GoTo SkipDeck
Sheets("Deck Erect").Select €˜If sheet €œDeck Erect€� does not exist,
code is to resume at €œSkipDeck:€�
Sheets("Erect Recap").Select

€˜< some code to reference the €œDeck Erect€� sheet in the €œErect Recap€� sheet

SkipDeck:
On Error GoTo 0
Range("A1").Select
End Sub


Your assistance is appreciated.

Thank you.
--
Don