Option Explicit

Private Sub btnNext_Click()
        Dim ProjNo As String
        Dim ProjRow As Long
        Dim Found As Range

    ProjNo = Worksheets("Form").Cells(6, 4).Value

         Set Found = Sheets("Dates").Columns(1).Find(what:=ProjNo, LookIn:=xlValues, lookat:=xlWhole)

          If Found Is Nothing Then
              MsgBox "Project not found."
              EnterProj.Show
         Else
             ProjRow = Found.Row
        End If

          Sheets("Dates").Range(ProjRow, 6).Copy Destination:=Sheets("Form").Range(19, 5)

End Sub