cell containing workbook name - excel

Question

I am working with a excel sheet there in column A somewhere one cell is containing workbook name (suppose my work book name is abc then "abc" is in a cell in column A probably in range"A8 OR A9" ). I want to find out that row & delete all row above that. I using below code
Option Explicit
Sub abc()
If Cells(8, 1).Value = ActiveWorkbook.Name Then
Range("A1:A7").Delete
Else
Range("A1:A8").Delete
End If
End Sub
Pls if anyone can help me to solve the issue

Answer 1

You can find workbook name and delete the rows above the cell containing that name as:
Sub abc()
Dim SearchCol As Long, SearchRow As Long
Dim StrName As String
Dim FoundCell As Range
'get the workbook name after removing the extension
StrName = Left(ThisWorkbook.Name, (InStrRev(ThisWorkbook.Name, ".", -1, vbTextCompare) - 1))
'search for the workbook name
Set FoundCell = Cells.Find(What:=StrName, LookAt:=xlWhole)
If FoundCell Is Nothing Then
MsgBox "File name not found in Sheet" '---> if workbook name not found in the sheet
Else
Rows(1 & ":" & FoundCell.Row - 1).EntireRow.Delete '---> delete the rows if name found
End If
End Sub
EDIT:
________________________________________________________________________________
Option Explicit
Sub SearchWrkbookName()
Dim oSht As Worksheet
Dim lastRow As Long, i As Long
lastRow = 22
Dim strSearch As String
strSearch = Left(ActiveWorkbook.Name, (InStrRev(ActiveWorkbook.Name, ".", -1, vbTextCompare) - 1)) '---> to remove extension from worksheet name
Dim aCell As Range
Set oSht = Sheets(1)
Set aCell = oSht.Range("1:" & lastRow).Find(What:=strSearch, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
If Not aCell Is Nothing Then
Rows("1:10").Select
End If
End Sub
Edited code is working version of your code written in comments.