How can i use Ctrl-F function of excel in macro

Here is a way

Sub FindN()
Dim iVal As Integer
iVal = Application.WorksheetFunction.CountIf(Range("A1:L100"), "N")
MsgBox ("Number of N's on this sheet:" & " " & iVal)
End Sub