Can someone provide me some code that would check to see if the sheet name "Report" is in the active workbook and if not add it to the end of the sheets, please?
Dim N As Long
On Error Resume Next
With ThisWorkbook.Worksheets
N = Len(.Item("Report").Name)
If N = 0 Then
.Add(after:=.Item(.Count)).Name = "Report"
End If
End With
Can someone provide me some code that would check to see if the
sheet name "Report" is in the active workbook and if not add it to
the end of the sheets, please?