Better coding

[mc136355]

Hi am looking at tidying my code. New to vba so have been gathering bit from here and there and trying to string them together.

My code when ran looks in all sheets for a name begining with some text and then will go to a further function to run more code.

my question is could this code be made smaller and therefore tidier.

Much obliged for any help

MC

 

[mc136355]

My code is as follows:


Function Find_Sheet(myArr As String) As Boolean
Dim wsFind As Worksheet

For Each wsFind In Sheets
If wsFind.Name Like myArr & "*" Then
MsgBox wsFind.Name & " LIKE " & myArr

Find_Sheet = True

MyOrder = "Do you wish to show records?"
Ans = MsgBox(MyOrder, vbQuestion + vbYesNo, "???")

If Ans = vbNo Then
MsgBox "Not show records"

Else
Var = Add_Sheet(myArr)
End If
Exit Function

End If

MsgBox wsFind.Name & " NOT LIKE " & myArr
Next

End Function