What's the best way to select cell A1 in all sheets in the this workbook using VBA?

[xcelnovice101]

Below is my code for deleting all data in all of the sheets in ThisWorkbook, but I also want to select cell A1 in all sheets in ThisWorkbook. The code does fin until it comes to select cell A1 on the second sheet.

Sub CLEAR_FS_MTD_REPORT()
    Sheets(1).Name = "Sheet1"
    Sheets(2).Name = "Sheet2"
    Dim ws As Worksheet
        For Each ws In ThisWorkbook.Worksheets
            ws.Cells.Delete Shift:=xlUp
        Next ws
    Dim wss As Worksheet
        For Each wss In ThisWorkbook.Worksheets
            wss.[A1].Select
        Next wss
    Sheets(1).Select
End Sub

 

[mumps]

Put this line:

wss.Activate

below this line:

For Each wss In ThisWorkbook.Worksheets

 

[xcelnovice101]

Put this line:

wss.Activate

below this line:

For Each wss In ThisWorkbook.Worksheets

Hello mumps. This doesn't select range A1 on any of the sheets.

 

[xcelnovice101]

I've edited my code to the following and it still doesn't select A1 on any other sheet other than the first one.

Sub CLEAR_FS_MTD_REPORT()
    Sheets(1).Name = "Sheet1"
    Sheets(2).Name = "Sheet2"
    Dim ws As Worksheet
        For Each ws In ThisWorkbook.Worksheets
            ws.Cells.Delete Shift:=xlUp
            [A1].Activate
        Next ws
    Sheets(1).Select
End Sub

 

[xcelnovice101]

Got it figured out.

Sub CLEAR_FS_MTD_REPORT()
    Sheets(1).Name = "Sheet1"
    Sheets(2).Name = "Sheet2"
    Dim ws As Worksheet
        For Each ws In ThisWorkbook.Worksheets
            ws.Select
            Cells.Delete Shift:=xlUp
            Range("A1").Select
        Next ws
    Sheets(1).Select
End Sub

 

[Norie]

Just remove this part of the original code,

Next ws
    Dim wss As Worksheet
        For Each wss In ThisWorkbook.Worksheets

and change this,

   wss.[A1].Select
Next wss

to this.

   Application.Goto ws.Range("A1"), True

Next ws

 

[sctlippert2]

sub SelectA1 ()
For i = 1 to Sheets.count
Sheets(i).Range("a1").select
Next i
end sub