title: Loop through all Sheets + Text in Cell to Numbers
body: <p>Im running an Excel sheet that calculates the amout of parts for a switching cabinet. The Data for that calculation is exported from a 3rd Party program called "E-Plan".
  In the first column (A) the Product numbers are displayed. In the second column the amount for each cabinet is displayed but formated as text. Ive written a short macro that should Loop through each sheet of the workbook except for those with the Name "Übersicht", "Rechner" or "Bestellmenge" and changes the Format of column "B" to "Zahl" or Numbers. However, the macro only Loops through the sheet im in and even through the Sheets ist not supposed to Loop through.</p>
  
  <pre><code>Sub Test()
  Dim ws As Worksheet
  
      For Each ws In ThisWorkbook.Worksheets
         If ws.Name = "Übersicht" Or _
         ws.Name = "Rechner" Or _
         ws.Name = "Bestellmenge" Then
  
  
         Else
  
         Columns("B:B").Select
         Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
                 TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
                  Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
                 :=Array(1, 1), TrailingMinusNumbers:=True
         End If
      Next ws
  
  End Sub
  </code></pre>