How do I loop through worksheets

Hi pablowilks,

Try this:

Option Explicit
Sub Macro1()

    'Written by Trebor76
    'Visit my website www.excelguru.net.au

    Dim wstMySheet As Worksheet
    Dim lngMyRow As Long
    
    Application.ScreenUpdating = False
    
    For Each wstMySheet In ThisWorkbook.Sheets
    
        If wstMySheet.Name <> "data" Then
    
            If lngMyRow = 0 Then
                lngMyRow = 1 'Initial output row number on the 'data' tab. Change to suit.
            Else
                lngMyRow = Sheets("data").Cells(Rows.Count, "A").End(xlUp).Row + 1
            End If
            
            Sheets("data").Range("A" & lngMyRow).Value = wstMySheet.Range("A1").Value
        
        End If
    
    Next wstMySheet
    
    Application.ScreenUpdating = True
    
    MsgBox "Process is complete"

End Sub

Regards,

Robert

Thanks for the feedback and you're welcome