如果您对此进行更改，我认为您的第一个代码将起作用:

I think Your first code will work if you change this:

 If ws.Name Like "danger" Then
   *Also tried this version: If ws.Name Like "danger" = True Then*

    Range("A1").Interior.ColorIndex = 37
End If

对此:

If ws.Name Like "danger" & "*" Then    
     ws.Range("A1").Interior.ColorIndex = 37
End If

您只需使用危险*"即可.

and simply you can use "danger*".