VBA Copying and Pasting from One Sheet to Another

If someone could help that would be great!! I'm quite new to the whole VBA thing!

everything on here works up until the 'Copy Destination:=ThisFile.ThisSheet.Range("rngJourn_Nos")' part (highlighted in yellow). I keep getting the error *runtime '438' Object doesn't support this property or method.

I'm not sure why. I have tried all sorts of things to try and resolve the issue along with trailing through numerous forums?

Private Sub JournalReg_Click()
Dim ThisFile As Workbook
Dim JournReg As Workbook

Dim ThisSheet As String

Set ThisFile = ThisWorkbook

ThisSheet = ActiveSheet.Name

Dim Sht As Worksheet
Dim JnlReg As String
Dim Answer As String

JnlReg = Range("rngFile_JnlReg").Value

For Each Sht In ThisWorkbook.Worksheets
Sht.Unprotect
Next Sht

Sheets("Jnl Vouch").Select

If Company.Text = "" Then
MsgBox "You must enter a Company"
Exit Sub
End If
Range("rngCo") = Company.Text

Range("rngEntry") = EntryDate
Range("rng_pdate") = PostingDate

Workbooks.Open Filename:=JnlReg
Range("A65536").End(xlUp).Offset(1, 12).Select
Answer = MsgBox("The next JV Ref is " & Selection & ". Do you want to use this JV Ref?", vbYesNo + vbQuestion)
If Answer = vbNo Then Exit Sub
If Answer = vbYes Then Selection.Copy Destination:=ThisFile.ThisSheet.Range("rngJourn_Nos")
End Sub

Any Help would be appreciated

I think you have to activate the first w.book
by

Please Login or Register  to view this content.

and then paste directly to the range without mentionaing the sheet name (if the range name is not local)


ps

To understand your issue better please provide a sample w.book. Also please read the forum rules and use tags whereever necessary

rgds

johnjohns