VBA Add Worksheet: "That command cannot be used on multiple selections"

I am using the following VBA to add a new worksheet but occasionally receive the '1004' run-time error "That command cannot be used in multiple selections"

PHP Code: 

Worksheets.Add(Before:=Worksheets("SheetA")).Name = "SheetB" 


Although I thought I broadly understood the nature of this error message, I am struggling to find where the multiple selections might be. Is there some command I can put before "Worksheet.Add" to guarantee that multiple selections are not occurring and therefore prevent the run-time error?

I've tried

PHP Code: 

Worksheets("SheetA").Activate 


and

PHP Code: 

Worksheets(("SheetA").Visible = xlSheetVisible
Sheets(("SheetA").Select 


But these do not seem to handle it.

Thanks in advance.

Full procedure:

PHP Code: 

Public Function CreateWorksheet(NewWSName$, BeforeWSName$, Optional TabColour As Variant, Optional AfterWS As Variant)

    Dim wsSheet As Worksheet
    
    On Error Resume Next
    Set wsSheet = Sheets(NewWSName)
    On Error GoTo 0
    
    If Not wsSheet Is Nothing Then
        ClearWSContents (NewWSName)
    Else
        ' new & blank
        If IsMissing(AfterWS) Then
            Worksheets.Add(Before:=Worksheets(BeforeWSName)).Name = NewWSName
        Else
            Worksheets.Add(After:=Worksheets(BeforeWSName)).Name = NewWSName
        End If
    End If
    
    If Not IsMissing(TabColour) Then
        SetTabColour ActiveSheet.Name, TabColour
    End If

End Function 


The problem was in the Pivot Caches elsewhere in the workbook. Somehow they had become corrupted (despite being less than 10 minutes old) and they were preventing any new tabs from being added to the workbook.

So, I wrote a subroutine that 'wipes' all the pivot caches in the workbook by setting to false the SaveData variable, then saving the file. Elsewhere in the code it closes and reloads the file, which then runs the second part of this subroutine to switch the settings from False back to True (which usually requires a refresh first) and then re-saves.

Please Login or Register  to view this content.