Sheelo:

I fix, I just added this line:

Dim ws As Worksheet

BTW, thanks for all your help.



"Sheeloo" wrote:

replace
For Each ws In Worksheets
with
For Each ws In ActiveWorkbook.Worksheets

and
befo=Worksheets(1)
with
befo=ActiveWorkbook.Worksheets(1)

I have not tested it but this should work. You basically need to pass the
activeworkbook when invoking from toolbar...


"bioyyy" wrote:

Sheelo:

I forgot, the error is WS (variable is not defined). Thanks

"Sheeloo" wrote:

Use the macro
Sub movesheets()
For Each ws In Worksheets
If (Right(ws.Name, 2) = "IS") Then
ws.Move _
befo=Worksheets(1)
End If
Next

If case is not important then change ws.Name to UCase(ws.name) in the macro

"bioyyy" wrote:

Hi:

I'd like you to help me with grouping worksheets. if the sheets contain
letter of "IS" at the end of the tab name, group them together.

For example, abc_IS, test1_IS, test2-IS.

So, If the sheets contain IS at the end of the tab name, group them
together, and move them first. Thanks for your help!