Set variable shows runtime error 91 when using found item

Hi,

I am trying to find an offset date from a table, using a range reference in another sheet. This found offset is to then be copied across into another table when a new working week is needed in the spreadsheet.
I had this working last night after solving the issue but it keeps rearing its ugly head.

here is the code I have...

Sub Roll_JCHR()
Call SetListObjects
'JCHR Project Data Roll and Adjustments...
'Data Within Table...
With JCHRProject.DataBodyRange.Columns(2).Resize(, 5).Copy
JCHRProject.DataBodyRange.Columns(1).PasteSpecial
JCHRProject.DataBodyRange.Columns(6).Clear
'Header Titles for Project Utilisation...
JCHRProject.HeaderRowRange(2).Resize(, 5).Copy
JCHRProject.HeaderRowRange(1).PasteSpecial
End With
'Copy New Date Into "Week 6" of Table...
wsDataInput.Activate
Dim WeekStartDate As Range
Set WeekStartDate = ProjectDates.DataBodyRange.Columns(2).Find(what:=wsResource.Range("C3").Value)
Dim RollDate As Range
Set RollDate = WeekStartDate.Offset(5, 0)
RollDate.Copy
JCHRProject.HeaderRowRange(6).PasteSpecial xlPasteValues
wsResource.Activate
'Adjust Remaining Tables Under Employee...
With JCHRPropose.DataBodyRange.Columns(2).Resize(, 5).Copy
JCHRPropose.DataBodyRange.Columns(1).PasteSpecial
JCHRPropose.DataBodyRange.Columns(6).Clear

JCHRMisc.DataBodyRange.Columns(2).Resize(, 5).Copy
JCHRMisc.DataBodyRange.Columns(1).PasteSpecial
JCHRMisc.DataBodyRange.Columns(6).Clear

JCHRProject.HeaderRowRange.Copy
JCHRPropose.HeaderRowRange(1).PasteSpecial
JCHRMisc.HeaderRowRange(1).PasteSpecial
End With

it throws the error when it is setting the RollDate.

Any help would be great.

I have added to the find parameters that I want it to look in xlValues. It seems to be working now, but I'm confused as to why I had it working last night?
I will keep an eye on this once I start adding the routine to other tables. Once it is all okay I will change to solved.

Thank you for your help.

Hello, All is well with the spreadsheet, the additional terms in the Find have made it work nicely.
After watching some more videos on the subject, I see what you mean. I thought as I was only using the find function for locating the date in a single table it would have worked.

Again, thank you for helping.