Check for worksheet name along column

[sofas]

Hello. I want help modifying the code to be able to execute a specific code when checking that the worksheet name is on any cell of column A provided there is no space in column b
I am now checking specific cells what is required is to check along columns A and B

Sub test()
Dim wkSht As Worksheet
For Each wkSht In Sheets
      On Error Resume Next

 If Sheets("Sheet1").Range("b2").Value <> "" And Sheets("sheet1").Range("a2").Value = wkSht.Name Then
  MsgBox "Available"
 
 
        Else
     End If
    Next
Exit Sub
End Sub

 

[DanteAmor]

You want to check all the sheets in the entire column A of sheet1.
If multiple sheets match, what is the result you need?

 

[sofas]

You want to check all the sheets in the entire column A of sheet1.
If multiple sheets match, what is the result you need?

It doesn't matter, the important thing is that Tim discovers at least one name in column A corresponding to a value in column B. In this way, a message is shown stating that.

 

[DanteAmor]

It doesn't matter, the important thing is that Tim discovers at least one name in column A corresponding to a value in column B. In this way, a message is shown stating that.

I don't know how to interpret that...

I'm not sure if the following is what you need.

Try and tell me.

Sub test_v2()
  Dim sh As Worksheet, sh1 As Worksheet
  Dim f As Range
  
  Set sh1 = Sheets("Sheet1")
  For Each sh In Sheets
    If sh.Name <> sh1.Name Then
      Set f = sh1.Range("A:A").Find(sh.Name, , xlValues, xlWhole, , , False)
      If Not f Is Nothing Then
        If sh1.Range("B" & f.Row).Value <> "" Then
          MsgBox "Sheets available " & sh.Name
          Exit For
        End If
      End If
    End If
  Next
End Sub

--------------
I hope to hear from you soon.
Respectfully
Dante Amor
--------------​

 

[sofas]

I don't know how to interpret that...

I'm not sure if the following is what you need.

Try and tell me.

Sub test_v2()
  Dim sh As Worksheet, sh1 As Worksheet
  Dim f As Range
 
  Set sh1 = Sheets("Sheet1")
  For Each sh In Sheets
    If sh.Name <> sh1.Name Then
      Set f = sh1.Range("A:A").Find(sh.Name, , xlValues, xlWhole, , , False)
      If Not f Is Nothing Then
        If sh1.Range("B" & f.Row).Value <> "" Then
          MsgBox "Sheets available " & sh.Name
          Exit For
        End If
      End If
    End If
  Next
End Sub

--------------
I hope to hear from you soon.
Respectfully
Dante Amor
--------------​

Really this is what is needed really thank you very much for the help