Dim wbook As Workbook, wsheet As Worksheet

Set wbook = Workbooks.Open(Filename:=str_sbodirectory & str_sbofilename)

With wbook

On Error Resume Next
Set wsheet = wbook.Sheets(str_sboworksheetdate)
On Error GoTo 0

If wsheet Is Nothing Then

.Worksheets("Master").Copy Before:=.Worksheets("Master")
End If

End With