CoVBA looks at first line of code and then last - nothing in between

[BRISBANEBOB]

Hi (again)

Absolute newbie at code (any code, not just VBA). I have a sheet called MustDo, I have a sheet called Single, I have a named range called TemplateSelect which has a value of 1. When I run the code in step mode it just goes from the first line to the last without executing the middle. I realise this must be an absolutely basic mistake but I can't figure it.

Any help appreciated

Sub FieldTransfer()
    
If TemplateSelect = 1 Then
    Sheets("MustDo").Select
    Range("AA13:AG15").Select
    Selection.Copy
    Sheets("Single").Select
    Range("D12").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("D16").Select
    
End If

End Sub

[Sbarro79]

Hi

Try to change this line:

If TemplateSelect = 1 Then

to this:

If Sheets(" name of the sheet, where the TemplateSelect named range is here ").Range("TemplateSelect").Value=1 Then

[BRISBANEBOB]

That certainly got things moving - thank you. I thought a Named Range would be visible to everything including VBA. Obviously not the case.

But the problem now is that I get a run-time error '1004' (Application-defined or opbject-defined error') at

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

I am pasting it as a 'paste special value' as the range into which I am pasting has data validation BUT the data I am pasting is compliant with the validation. I assume that this is the problem but I do not want the data validation destroyed with a straight copy paste. Is this the problem? Is there away around it?

[JBeaucaire]

Perhaps less selecting:

    Sheets("MustDo").Range("AA13:AG15").Copy
    Sheets("Single").Range("D12").PasteSpecial xlPasteValues

[BRISBANEBOB]

That did it. Thanks