Code
' Forms
For i = 0 To CurrentProject.AllForms.Count - 1
fName = CurrentProject.AllForms(i).Name
bOpen = CurrentProject.AllForms(i).IsLoaded
If Not bOpen Then
DoCmd.OpenForm fName, acNormal
End If
If Forms(fName).Module.Find(sFind, StartLine, StartColumn...