GOT IT!!
Here is the full Code:
Sub test()
Dim FindSheetName As String
Dim HowManyFound As Integer
FindSheetName = InputBox("Enter Customer Name", "Worksheet Selection"

If UniqueSheetName(FindSheetName, HowManyFound) Then
MsgBox "SheetName is " + FindSheetName
Sheets(FindSheetName).Activate
Else
MsgBox HowManyFound & " sheets found like " & FindSheetName & "..."
End If
End Sub
Function UniqueSheetName(ASheetName As String, HowMany As Integer) As Boolean
' Provide a partial sheet name in the ASheetName argument.
' If a unique match is found, function returns true, ASheetName
' is updated with the actual sheet name that was found
' and HowMany is set to 1.
' Otherwise, function returns false and HowMany indicates
' how many sheets made the partial match (0, 2, 3, or whatever).
Dim sht As Worksheet
Dim sUCaseSheetName As String
Dim nLength As Integer
Dim TheSheetName As String
HowMany = 0
sUCaseSheetName = UCase(ASheetName)
nLength = Len(ASheetName)
For Each sht In Application.Worksheets
If UCase(Left(sht.Name, nLength)) = sUCaseSheetName Then
TheSheetName = sht.Name
HowMany = HowMany + 1
End If
Next
If HowMany = 1 Then
ASheetName = TheSheetName
UniqueSheetName = True
End If
End Function