Sub teste()
Dim ws As Worksheet, Tbl() As Variant, C As Integer
C = 1
For Each ws In Worksheets
If Left(ws.Name, 9) = "FORMATION" Then
With ws
Range("B4:B1188").Select
Range("A4:K1188").Sort Key1:=Range("B4"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortTextAsNumbers
End With
End If
Next ws
End sub