Object vairable - 91 error on setting a worksheet variable

[cova]

OK, so I have this code here, which will let me know whether the info entered is new data or changes to old data and put it into the correct sheet depending on which it is.
Problem is, when I get to the if statement, when it gets to ws2= it causes the run-time error 91: Object variable or with-block variable not set
Thing is, the variable is set on line 3. Even recognises it if I change it to Ws2 and converts it to correct formatting.

Sub copysheetdata()
Dim custID As String
Dim ws1, ws2 As Worksheet
Dim i, j As Integer
Set ws1 = Sheets(ActiveSheet.Name)
custID = ws1.Range("D3").Value
Sheets("slcustm").Select
Columns("B:B").Select
If Selection.Find(What:=custID, after:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, _
    Searchorder:=xlByRows, searchdirection:=xlNext, MatchCase:=False, searchformat:=False) Is Nothing Then
ws1.Activate
ws2 = Sheets("New")
Else
ws1.Activate
ws2 = Sheets("Changes")
End If

Anyone have any ideas?
Cheers
Ben

 

[JLeno]

Add Set in front of that line, just like you do with

Set ws1 = Sheets(ActiveSheet.Name)

 

[cova]

*FACEPALM*
I even put the set in the first bit when I first wrote it because I thought it may cause problems if not. Guess I couldnt see the wood for the trees there. Thanks
:D