Selection.Paste Please tell me whst is the error in this code and how it can be corrected.

[vroom547]

Sub Macro1()

'

' Macro1 Macro

'

' Keyboard Shortcut: Ctrl+q



Range("F11:F36").Select

ActiveWindow.SmallScroll Down:=12

Range("F11:F36,F40:F48").Select

Range("F48").Activate

ActiveWindow.SmallScroll Down:=15

Range("F11:F36,F40:F48,F52:F53,F57:F61").Select

Range("F61").Activate

ActiveWindow.SmallScroll Down:=15

Range("F11:F36,F40:F48,F53:F57,F57:F61,F65:F66").Select

Range("F66").Activate

Selection.Copy

Windows("T-4 (2024 25) Qualification Spreadsheet").Activate

Sheets("Participants Data").Select

Range("A100000").End(xlUp).Select

ActiveCell.Offset(1, 0).Range("A2").Select

Selection.Paste Special Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=True

End Sub

 

[Fluff]

It should be PasteSpecial, not Paste Special

 

[vroom547]

It should be PasteSpecial, not Paste Special

Thanks for your help buddy but that SPACE came while copy-pasting. I have added an image please check and it's showing a syntax error.

 

[Fluff]

Do you actually have a blank line between that & the :=False line?

 

[vroom547]

& the :=False line?

it is there. Even if i delete the space then also i get error

 

[Fluff]

Simply remove the blank line

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

or put it on one line

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

 

[vroom547]

Simply remove the blank line

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

or put it on one line

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

I tried that already getting an application-defined error

 

[Fluff]

Step through the code using F8, what line does it fail on?

 

[vroom547]

Step through the code using F8, what line does it fail on?

Hi Fluff, I did that and found step where the error is there

Windows("T-4 (2024 25) Qualification Spreadsheet").Activate

 

[Fluff]

Is that workbook open?
If so try using

 Workbooks("T-4 (2024 25) Qualification Spreadsheet.xlsx").Activate

change the file extension to suit.