In the code below how can I make the range in the following line point to
the Worksheet named Sunday (cell B1000)?

If Range("B1000").Value = "xxx" Then


Private Sub Workbook_BeforeClose(Cancel As Boolean)


If Range("B1000").Value = "xxx" Then

Range("B1").Select
ThisWorkbook.Close False

Else: Range("B1").Select

End If
Range("B1").Select
Application.EnableEvents = True

End Sub