how to resize column width in the worksheets

[aaaaa34]

hey MY FRIENDS,

i want to write a code for making B columns size 25 in all worksheets except 2 sheets called "sales" and "products"

can u help me please?

[Sa DQ]

Option Explicit
Sub GPE_COM()
 Dim Sh As Worksheet
 For Each Sh In ThisWorkbook.Worksheets
    If Sh.Name = "Sales" Or "Product" Then
        Columns("B:B").Select
        Selection.ColumnWidth = 24.99
    End If
  Next Sh
End Sub 

[Tinbendr]

Sub ResizeB()
Dim WS As Worksheet

For Each WS In Worksheets
    Select Case WS.Name
    Case "sales", "products"
        'Do nothing
    Case Else
        WS.Columns("B").ColumnWidth = 25
    End Select
Next
End Sub