Problem assigning values

[51DegreesNorth]

The application I'm working on must keep two rows in sync. These rows live on two different sheets within one workbook.
I can do the sync using select and copy/paste, but I'm looking for a much faster way.

Sub Alt_Copy()

Dim Src_PO_Nr As Long
Dim FindRow As Long

Src_PO_Nr = 5
FindRow = 10

'this line of code gets executed
ThisWorkbook.Sheets("B").Range(Cells(FindRow, 1), Cells(FindRow, 41)).Value = 10

'this one causes error 1004 - but they are basically the same !
ThisWorkbook.Sheets("A").Range(Cells(Src_PO_Nr, 1), Cells(Src_PO_Nr, 41)).Value = 20

End Sub

I'd like to end up with just one statement in the form "Range.Value=Range.value" .
What is going on here ? What am I missing ?
Thank you.

 

[BSALV]

That line works fine in the activesheet, and that is "B".
If your activesheet was "A", the 1st line 'll give an error, the 2nd not !
Learn the features of offset and resize !

this line of code gets executed
ThisWorkbook.Sheets("B").Cells(FindRow, 1).Resize(, 41).Value = 10

'this one causes error 1004 - but they are basically the same !

ThisWorkbook.Sheets("A").Cells(Src_PO_Nr, 1).Resize(, 41).Value = 20

 

[51DegreesNorth]

Fast and spot on, thank you very much ! I think I see what the effect of resizing is and I'll certainly have a thorough look at that.