Range Select generates 400 error code

Newbie time again, I'm afraid.

The code below runs perfectly until the last line where it generates a 400 error. The syntax looks OK so where am I going wrong? When I save the code it does not generate any error.

My sanity would appreciate any help.

Sub FieldTransfer()
    
If Sheets("MustDo").Range("TemplateSelect").Value = 1 Then
    Sheets("MustDo").Range("AA13:AG15").Copy
    Sheets("Single").Range("D12").PasteSpecial xlPasteValues
    Sheets("Single").Range("D16").Select
End If

End Sub

Try to change this

Sheets("Single").Range("D16").Select

To:

    With Sheets("Single")
    .Range("D16").Select
    End With

Thanks for the assistance but still getting a 400 error. I tired putting it before the End If and then I tried putting it after the End If but neither worked.

Grateful for any further ideas

Do you need to actually "Select" the cell?

You can't select the cell directly that is in the non-activesheet.
Select the sheet first.

Sub FieldTransfer()
    
If Sheets("MustDo").Range("TemplateSelect").Value = 1 Then
    Sheets("MustDo").Range("AA13:AG15").Copy
    Sheets("Single").Range("D12").PasteSpecial xlPasteValues
    Sheets("Single").select  '<----
    Sheets("Single").Range("D16").Select
End If

End Sub