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