Run-time Error "9" Subscript out of range

[jhpaul1220]

So I keep getting a "Run-time Error "9" Subscript out of range" on the third line (marked in bold) and I don't know how to fix it. Any thoughts?


Private Sub CommandButton1_Click()




Dim LR




Worksheets("Sheet2").Activate
LR = ActiveSheet.Range("B" & Rows.Count).End(xlUp).Row + 1








Sheet1.Range("B2").Copy Sheet2.Range("B" & LR)
Sheet1.Range("B3").Copy Sheet2.Range("C" & LR)
Sheet1.Range("B4").Copy Sheet2.Range("E" & LR)
Sheet1.Range("C30").Copy Sheet2.Range("F" & LR)
Sheet1.Range("C27").Copy Sheet2.Range("F" & LR)
Sheet1.Range("C12").Copy Sheet2.Range("G" & LR)
Sheet1.Range("G29").Copy Sheet2.Range("H" & LR)








End Sub

 

[Jonmo1]

That error indicates that there is no sheet named "Sheet2" in the currently active workbook.
Check for exact spelling, and extra spaces on the sheet's tab name "Sheet2" vs " Sheet2" or "Sheet2 "