macro loop through worksheets

[asdzxc]

After applying macro on Sheet1,go to Sheet2 and to apply the same macro, plse add code

Dim lastrow As Long
Dim selectnum As Long
lastrow = Cells(Rows.Count, "a").End(xlUp).Row
Select Case True
Case lastrow > 30:  selectnum = 30
Case lastrow > 20: selectnum = 20
Case lastrow > 10:   selectnum = lastrow
End Select
Cells(lastrow - selectnum + 1, "a").Resize(selectnum, 3).Select

Set cht1 = ActiveSheet.Shapes.AddChart
    cht1.Chart.ChartType = xlLineMarkers
    cht1.Chart.Location xlLocationAsNewSheet
ActiveChart.ChartArea.Select
    ActiveChart.PlotArea.Select

[arlu1201]

Should the macro be applied to only Sheet1 and Sheet2 or all the sheets in the workbook?

[asdzxc]

to apply to only Sheet1 and Sheet2

[arlu1201]

Try this

Dim lastrow As Long
Dim selectnum As Long
Dim ws As Worksheet

For Each ws In ThisWorkbook.Worksheets
    If ws.Name = "Sheet1" Or ws.Name = "Sheet2" Then
        lastrow = ws.Cells(ws.Rows.Count, "a").End(xlUp).Row
        Select Case True
            Case lastrow > 30:  selectnum = 30
            Case lastrow > 20: selectnum = 20
            Case lastrow > 10:   selectnum = lastrow
        End Select
        ws.select
        ws.Cells(lastrow - selectnum + 1, "a").Resize(selectnum, 3).Select

        Set cht1 = ws.Shapes.AddChart
        cht1.Chart.ChartType = xlLineMarkers
        cht1.Chart.Location xlLocationAsNewSheet
        ActiveChart.ChartArea.Select
        ActiveChart.PlotArea.Select
    End If
Next ws

[asdzxc]

Solved.
Thank you