Run Macro if all sheets are in the workbook

[vinzent]

Hello to all

I have one macro, but I want to check if all the sheets in the file are in the workbook before to run (due we are using 10 different sheets with different names to get the information) and sometimes one sheet is missing to included before to run and only show error but we are checking on by one to know what is the missing sheet.
If yes, run the macro normally, If not show a message with sheet name missing and stop the macro.
Thanks a lot..

 

[6StringJazzer]

Obviously to detect a missing sheet, you have to know what sheets you are expecting. This code set up a list of expected sheet names and puts up a message for each one not found. You can insert this code in the desired place in existing code. Note that it takes into account that more than one sheet could be missing.

   Dim SN As Variant
   Dim SNC As String
   Dim Missing As Boolean

   On Error Resume Next
   For Each SN In Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")
   
      SNC = Worksheets(SN).Name
      If Err.Number > 0 Then
         MsgBox "Sheet """ & SN & """ missing."
         Missing = True
         Err.Clear
      End If
      
   Next SN
   
   If Missing Then Exit Sub

   On Error GoTo 0

 

[vinzent]

Obviously to detect a missing sheet, you have to know what sheets you are expecting. This code set up a list of expected sheet names and puts up a message for each one not found. You can insert this code in the desired place in existing code. Note that it takes into account that more than one sheet could be missing.

I included in my macro and run ok, this is just I need it. Thanks a lot.