Sub CreateNewWorksheet$()$

$\text{'}$Go to the open column, reformat the information in column C

'Copy and paste that information into new column

'Make new sheets based off a list made of unique entries

Dim ws As Worksheet

Dim lastRow As Long

Dim rng As Range

$\text{'}$ Set the worksheet

Set ws $=$ Worksheets$("$CopiedSheet$")$

$\text{'}$ Determine the last row in column A

lastRow $=$ ws$.$Cells$($ws$.$Rows.Count, $"$A$").$End$($xlUp$).$Row

$\text{'}$ Set the range from A$1$ to the last row in column A

Set rng $=$ ws$.$Range$("$D$1$:D$"$ & lastRow$)$

$\text{'}$ Enter the formula into the range; this will display each date by month

rng$.$Formula $="=$TEXT$($RC$[-1],""$mmmm$"")"\text{'}$ Pastes formula into cells

Dim Branchfield As Range 'Creates a variable named Branchfield and sets it to Range

Dim BranchName As Range 'BranchName is the placeholder variable for the value inside the cell

Dim WSheetFound As Boolean 'True$/$False Variable based on whether or not a sheet is found

Dim NewWSheet As Worksheet

Dim WSheet As Worksheet

Dim DataWSheet As Worksheet 'The Worksheet that has our original data

'Dim String

Set DataWSheet $=$ Worksheets$("$CopiedSheet$")$ 'Sets all the information in CopiedSheet to the variable DataWSheet

Set Branchfield $=$ DataWSheet.Range$("$D$2",$ DataWSheet.Range$("$D$2").$End$($xlDown$))$ 'Holds the months

For Each BranchName In Branchfield

'Check whether the current branch name corresponds with an existing sheet

For Each WSheet In ActiveWorkbook.Worksheets

'MsgBox WSheet.Name

If WSheet.Name $=$ BranchName Then

WSheetFound $=$ True

BranchName.Offset$(0,-3).$Resize$(1,13).$Copy Destination:$=$WSheet.Range$("$A$1").$End$($xlDown$).$Offset$(1,0)$

Exit For $\text{'}$ If it does assign True to the WSheet Found variable

Else

WSheetFound $=$ False $\text{'}$if it doesn't assign False to the WSheet

End If

Next WSheet

If WSheetFound $=$ True Then $\text{'}$if WSheetFound $=$ True

Else $\text{'}$if WSheetFound $=$ False

Set NewWSheet $=$ Sheets.Add$($After:$=$ThisWorkbook.Sheets$($ThisWorkbook$.$Sheets.Count$))$ 'insert new worksheet

NewWSheet.Name $=$ BranchName 'named after that branch

DataWSheet.Range$("$A$1",$ DataWSheet.Range$("$A$1").$End$($xlToRight$)).$Copy Destination:$=$NewWSheet.Range$("$A$1")$ 'and copy the headings to it

BranchName.Offset$(0,-3).$Resize$(1,13).$Copy Destination:$=$NewWSheet.Range$("$A$2")\text{'}$ then copy and paste the record to i

End If

$\text{'}$ Next WSheet

Next BranchName

End Sub

$\text{'}\text{'}\text{'}\text{'}$

This code runs perfectly, but then it tries to create a new sheet that already exists, and fails