H
Howard
I have used this very line of code successfully in other macros but here it errors out.
With cursor at the end of that line, Run DeBug - run to cursor gives me a yellow highlight. (NxtRow = Nothing)
Thanks.
Howard
Option Explicit
Sub Copy_All_Sheet_Sheet()
Dim WS As Worksheet
Dim NxtRow As Long
Dim Nws As Long
NxtRow = Cells(Rows.Count, "A").End(xlUp)(2).Row
For Nws = 2 To ThisWorkbook.Worksheets.Count
WS.UsedRange.Copy Sheets("Page 1").Range("A" & NxtRow)
Next Nws
End Sub
With cursor at the end of that line, Run DeBug - run to cursor gives me a yellow highlight. (NxtRow = Nothing)
Thanks.
Howard
Option Explicit
Sub Copy_All_Sheet_Sheet()
Dim WS As Worksheet
Dim NxtRow As Long
Dim Nws As Long
NxtRow = Cells(Rows.Count, "A").End(xlUp)(2).Row
For Nws = 2 To ThisWorkbook.Worksheets.Count
WS.UsedRange.Copy Sheets("Page 1").Range("A" & NxtRow)
Next Nws
End Sub