I am not sure that I would like to follow your advice . Looking to minimise the head banging. . I have found this link https://www.mrexcel.com/forum/excel-...heet-name.html which gets me to the finding the sheetit seems to work but is case sensitive . It opens the work sheet as per selection how do i get the "active " sheet to be attached to and email as an attachment . i have seen code that does this not sure where to place the code to do it . Can I create a user form with the above code and have an email button to send as per selection? What is the easiest ?HTML Code:Sub FindWS() Dim strWSName As String strWSName = InputBox("Enter the sheet name to serach for") If strWSName = vbNullString Then Exit Sub End If If SheetExists(strWSName) Then Worksheets(strWSName).Activate Else 'look if it at least contains part of the name Dim s As Worksheet For Each s In ThisWorkbook.Sheets If InStr(s.Name, strWSName) > 0 Then s.Activate Exit Sub End If Next s MsgBox "That sheet name does not exist!" End If End Sub Function SheetExists(strWSName As String) As Boolean Dim ws As Worksheet On Error Resume Next Set ws = Worksheets(strWSName) If Not ws Is Nothing Then SheetExists = True End Function