If Statement for Cells.Find

Maybe something like this, since you file is incomplete not able to test

The red text is mine

Worksheets("Library").Activate
Range("A1").Select


'Cells.Find(What:=LibraryKey, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Activate


Dim foundRange  As Range

With Worksheets("Library").Cells
    Set foundRange = .Find(What:=LibraryKey, LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True, SearchFormat:=False).Activate
    If Not foundRange Is Nothing Then
        foundRange.Activate
    Else
        MsgBox LibraryKey & "not found!", vbExclamation, ""
        Exit Sub
    End If
End With
    


Dim ConfigID_Load As String

Range("A2").Select

Do