Error when adding "Optional" parameter to an existing procedure

[ElBombay]

Hello Board,

The procedure below has always worked, basically just to save a few keystrokes, and present cleaner code. I I tried to expand it today to start the search from the current location. I just added an optional 2nd parameter (bottom bloc) but I get a very vague "Expected =" error. Can someone help me resolve this? Thanks.

/*
'----------------------------------------------------------------------------
Sub Find_Text(cString)
'
' Find_Text Macro
' Macro recorded 9/11/2006
'

Application.ScreenUpdating = 0
Range("A1").Select
Cells.Find(What:=cString, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

End Sub
'----------------------------------------------------------------------------

*/

/*
'----------------------------------------------------------------------------
Sub Find_Text(cString, Optional cBegin As String)
'
' Find_Text Macro
' Macro recorded 9/11/2006
'
If cBegin Is Null Then cBegin= "A1"

Application.ScreenUpdating = 0
Range(cBegin).Select
Cells.Find(What:=cString, After:=ActiveCell, _
LookIn:=xlFormulas, LookAt:=xlPart, _
SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate

End Sub
'----------------------------------------------------------------------------

*/

 

[JoeMo]

Not clear what you are attempting to accomplish with cBegin. It appears that it must be either the null string, or a legitimate cell address.
Can you elaborate on what you want to accomplish with this optional argument?

 

[Micron]

2 things: Is Null is a sql function (possibly only Access sql - don't know). Use IsNull(cBegin) - except it won't be Null, it will be an empty string.
I don't see what that sub will do - find something perhaps, but then do nothing with it?