Application defined error or object defined error - VBA

[Kaps_mr2]

Dear All,

I am getting an application defined or object defined error on the line in bold below. Can anybody shed any light ? thanks

Kaps

 If does_sheet_exist(trustworkbook, "QIPP") = True Then
    
    MsgBox "QIPP " & i & " " & trust_code
    
        trustworkbook.Sheets("QIPP").Name = trust_code
        
        quipp_template_file.Sheets.Add before:=quipp_template_file.Sheets("end")
        
        ActiveSheet.Name = trust_code
        
        trustworkbook.Sheets(trust_code).Range("a1:az300").Copy quipp_template_file.Sheets(trust_code).Range("a1")
            
    End If

The function does_sheet_exist is defined as:-

Public Function does_sheet_exist(file_to_search As Workbook, sheet_to_find) As Boolean
does_sheet_exist = False
Dim i As Long
Dim no_of_sheets As Long

no_of_sheets = file_to_search.Sheets.Count

For i = 1 To no_of_sheets

    If file_to_search.Sheets(i).Name = sheet_to_find Then
        does_sheet_exist = True
        Exit For
    End If

Next


End Function

 

[Norie]

Are you sure you aren't trying to name a worksheet with the same name as an existing worksheet?

Or an invalid name?

 

[Kaps_mr2]

Norie,

Thanks. No the value of trustcode is "5A7" - whilst the original sheet is called "QIPP".

Kind Regards

Kaps

 

[Kaps_mr2]

fixed it as sheet was protected !! doh