Running simultaneously multiple worksheet Macros from one Macro

[Jan Kalop]

I have six identical Macros for six worksheets, from MonDBS to SatDBS

Sub MonDBS_Last_ROW()
Range("C700").End(xlUp).Select
End Sub

Sub TueDBS_Last_ROW()
Range("C700").End(xlUp).Select
End Sub

Sub WedDBS_Last_ROW()
Range("C700").End(xlUp).Select
End Sub

Sub ThuDBS_Last_ROW()
Range("C700").End(xlUp).Select
End Sub

Sub FriDBS_Last_ROW()
Range("C700").End(xlUp).Select
End Sub

Sub SatDBS_Last_ROW()
Range("C700").End(xlUp).Select
End Sub

All Macros works on each worksheet, but I would like to have one Macro for sample on worksheet MonDBS which would run all the Macros accross all of those six worksheet simultaneously

 

[davesexcel]

You only need one macro.
If you want code to select a cell, you need to select the sheet as well.

    Dim sh As Worksheet

    For Each sh In Sheets
        With sh
            .Select
            .Cells(.Rows.Count, "C").End(xlUp).Select
        End With
    Next

 

[Jan Kalop]

You only need one macro.
If you want code to select a cell, you need to select the sheet as well.

    Dim sh As Worksheet

    For Each sh In Sheets
        With sh
            .Select
            .Cells(.Rows.Count, "C").End(xlUp).Select
        End With
    Next

Thankyou for your help, but I can not make it working

 

[Jan Kalop]

Thankyou for your help, but I can not make it working

I think it should be somehow restricted only to those worksheets mentioned in the post, because in this case I have another 10 worksheets in that workbook, and even I make it working it keeps looping and looping for very long time.

 

[Jan Kalop]

You only need one macro.
If you want code to select a cell, you need to select the sheet as well.

    Dim sh As Worksheet

    For Each sh In Sheets
        With sh
            .Select
            .Cells(.Rows.Count, "C").End(xlUp).Select
        End With
    Next

I think it should be somehow restricted only to those worksheets mentioned in the post, because in this case I have another 10 worksheets in that workbook, and even I make it working it keeps looping and looping for very long time.

 

[davesexcel]

You can create an array of sheet names, then loop through them.

    Dim ws, i
    'create the array of sheet names
    ws = Array("www", "Sheet2", "Sheet8", "Sheet6", "Sheet4", "Sheet3")
    
    For i = LBound(ws) To UBound(ws)
    
        With Worksheets(ws(i))
            .Select
            .Cells(.Rows.Count, "C").End(xlUp).Select
        End With
    Next i

 

[Jan Kalop]

You can create an array of sheet names, then loop through them.

    Dim ws, i
    'create the array of sheet names
    ws = Array("www", "Sheet2", "Sheet8", "Sheet6", "Sheet4", "Sheet3")
   
    For i = LBound(ws) To UBound(ws)
   
        With Worksheets(ws(i))
            .Select
            .Cells(.Rows.Count, "C").End(xlUp).Select
        End With
    Next i

Many thanks, now everything works as I wished and thank you very much for your help