Not different from what you initially sent
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(1, s.Name, strWSName, vbTextCompare) > 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
Hi Momentman / fellow members,
I'm new to this forum and the info here really helped me alot in my current VBA module. I'm reaching out because i'm caught in a bottleneck right now which i have no solution for.
Would you / anyone happen to know how i can exit sub if the sheet doesn't exist? I used the original code that was posted here but i changed the input portion and instead, indicated the string name i needed to search for.
I'm trying to do a scenario where if any of the worksheets contain the text "rawfile", another sub procedure will be called upon. Otherwise, if none of the worksheets contain the text "rawfile", i'll exit the Sub Activate_TempRawFile().
My current syntax exits the sub immediately and I'm not sure how should i write the Else statement for my desired scenario to happen.
Your help will be greatly appreciated! Thanks in advance!
-----------------------------------------------------------
Sub Activate_TempRawFile()
Dim strWSName As String
Dim ws As Worksheet
Dim s As Worksheet
strWSName = "rawfile"
MsgBox "The name of the active workbook is " & ActiveWorkbook.Name
For Each ws In ActiveWorkbook.worksheets
ws.Name = UCase(ws.Name)
Next
If SheetExists(strWSName) Then
worksheets(strWSName).Activate
Else
'look if it at least contains part of the name
For Each s In ThisWorkbook.Sheets
If InStr(1, s.Name, strWSName, vbTextCompare) > 0 Then
s.Activate
Exit For
Else: Exit Sub
MsgBox "Worksheet is not found. The macro will now end."
End If
Next s
MsgBox "That sheet name does not exist!"
End If
Call FormatDate_Column_A
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
