Solved: Count with differ.name Sheets

[omnibuster]

Count Sheets (before Add New Sheet) dont help me because Sheets named: Sh1,Sh2 data is names. (Inserted by 3columns)
: AA1, AA2 data is diff value. (Inserted by 2 columns).

Maybe something like : First Sheet or
Count Sheets like Sh & i , Count Sheets like AA&i


Sub Test() '''
Dim LastRow As Long
Dim count As Integer
Dim i As Long
'Workbooks.Open Filename:="C:\Sample.xls"
Sheets("Sh1").Activate
Last = Cells.Find("*", SearchOrder:=xlByColumns, _
LookIn:=xlValues, SearchDirection:=xlPrevious).Column

If Last = 256 Then 'If activesheet completed-full
Sheets.Add
ActiveSheet.Name = "Sh3" 'Next time named Sh4 or Sh5 or Sh6....
Sheets("Sh2").Select
Cells.Select
Selection.Cut
Sheets("Sh3").Select
ActiveSheet.Paste
Sheets("Sh1").Select
Cells.Select
Selection.Cut
Sheets("Sh2").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("Sh3").Select
Range("A1").Select
End If
Sheets("Sh1").Activate
Columns("A:C").Select
Selection.Insert Shift:=xlToRight
' Windows("DownL.xls").Activate
' Sheets("Sheet1").Activate
' LastRow = Columns("A:C").End(xlDown).Row
' Range("A1:C" & LastRow).Cut
' Windows("Sample.xls").Activate
' Sheets("Sh1").Activate
' Range("A1").Select
' ActiveSheet.Paste

Windows("Sample.xls").Activate
Sheets("AA1").Activate
Last = Cells.Find("*", SearchOrder:=xlByColumns, _
LookIn:=xlValues, SearchDirection:=xlPrevious).Column
If Last = 256 Then 'If activesheet completed-full
Sheets.Add
ActiveSheet.Name = "AA3" 'Next time named AA4 or AA5...
Sheets("AA2").Select
Cells.Select
Selection.Cut
Sheets("AA3").Select
ActiveSheet.Paste
Sheets("AA1").Select
Cells.Select
Selection.Cut
Sheets("AA2").Select
Range("A1").Select
ActiveSheet.Paste
Sheets("AA3").Select
Range("A1").Select
End If
Sheets("AA1").Activate
Columns("A:B").Select
Selection.Insert Shift:=xlToRight
' Windows("DownL.xls").Activate
' Sheets("Sheet2").Activate
' LastRow = Columns("A:B").End(xlDown).Row
' Range("A1:B" & LastRow).Copy
' Windows("Sample.xls").Activate
' Sheets("AA1").Activate
' Range("A1").Select
' Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
' xlNone, SkipBlanks:=False, Transpose:=False
' ActiveWorkbook.Save
' ActiveWindow.Close
End Sub


Help!

[georgiboy]

Sub x()
Dim x As Integer, ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

If ws.Name Like "Sh*" Then x = x + 1
If ws.Name Like "AA*" Then y = y + 1

Next

MsgBox x & vbNewLine & vbNewLine & y


End Sub

Hope this helps

[omnibuster]

Sub x()
Dim x As Integer, ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

If ws.Name Like "Sh*" Then x = x + 1
If ws.Name Like "AA*" Then y = y + 1

Next

MsgBox x & vbNewLine & vbNewLine & y


End Sub

Hope this helps



Thanks georgiboy.