How do I move this button to new sheet?

[vllgv]

Hello all,

I want to move this button from Sheet1 to Sheet2. Thank you for any tips?

Getting error 1004 "Application-defined" or "Object-defined" 1004 on line:
Worksheets("Sheet1").Range("F:AM").Select

Private Sub CommandButton3_Click()
Dim i As Long
Dim c As Range
Dim r As Range
For i = 2 To Worksheets("Sheet2").Cells(Rows.Count, "A").End(xlUp).Row
Set c = Worksheets("Sheet2").Range("A" & i)
    Worksheets("Sheet1").Range("F:AM").Select
    Selection.Replace What:=c.Value, Replacement:=c.Offset(, 1), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False

Next i
End Sub

 

[kdave]

Select the worksheet first, then the cells. Use two different lines of code.

 

[vllgv]

I tried this:

Worksheets("Sheet1").Activate
Range("F:AM").Select

 

[vllgv]

Figured it out. Thank you kindly for the tip!