Run Loop on the sheets other than mentioned

One way is to compare the sheet names to a string variable containing the sheets to avoid:

Sub dural()
   Dim ws As Worksheet
   Dim avoid, st As String, c As String
   avoid = Array("Junk1", "Junk2", "Junk3")
   c = Chr(10)
   st = c & Join(avoid, c) & c
   
   For Each ws In Sheets
      If InStr(1, st, c & ws.Name & c) = 0 Then
      
         'process sheet
         MsgBox ws.Name
         
      End If
   Next ws

End Sub