Splitting an Excel File into Multiple Sheets but retaining lookup data etc

Any help on this would be appreciated - I couldn't find anything quite like this already that I could use:

I have a master expenses file that has a page for each employee summarising their expenses. The employee sheets run off array formulas and lookups from hidden data sheets.

I want to send each employee a copy of their expenses with the lookups etc hidden but still in tact so that they can complete the coding etc using lookup lists (project and expense codes) from the data sheets.

What I envisage is a macro create to a set of individual employee files with only their page but with the lookups and data in remaining in tact and hidden in each. I've been trying to create a macro to systematically work through the file creating new files for each employee deleting each of the other employee sheets but retaining the hidden data and related lookups - with no success

This is as far as I have got. I've named the hidden sheets I want to retain "Hide-xxxxx" but the And function isn't working it is deleting everything not just the unhidden sheets

The other problem is the copy retains formula links to the original workbook not to the hidden sheets in the new version (if they were there!)...

--------------------------------------------------------

Sub SplitFile()

Dim wb As Workbook
Dim NewBook As Workbook
Dim ws As Worksheet
Dim ws2 As Worksheet

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set wb = ThisWorkbook

For Each ws In wb.Worksheets
If ws.Visible = xlSheetVisible Then
Set NewBook = Workbooks.Add
With NewBook
.Title = ws.Name
ws.Copy After:=NewBook.Worksheets("Sheet3")

For Each ws2 In NewBook.Worksheets
If ws2.Name <> ws.Name And Left(ws2.Name, 4) <> "Hide" Then
ws2.Delete
End If
Next
.SaveAs ws.Parent.Path & "\" & ws.Name
.Close
End With
End If
Next

wb.Activate

Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub