Hello all,
I have altered a simple macro to find a record within a sheet why oh
why does it not work when a new work sheet is created and I copy the
macro across and also how do I make this search all sheets within a
work book all help gratefully received.

Sub cmdFind_Click()
Dim nResult As Integer
Dim cFind As String
Dim cBookMark As String
'
Cells.Find(range("a1"), LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False).Activate


End Sub


------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/

What happens when you run it? Doesn't work is pretty nebulous.

What version of excel are you running?

If it's xl97, try changing the .takefocusonclick property to false (fixed in
xl2k).

Then check the name of the button on the new sheet. Is it still called
cmdFind_click?

But even better, if you don't want to reinvent that wheel, you could use this
very useful utility:

Jan Karel Pieterse's FlexFind at:
http://www.bmsltd.co.uk/MVP



liamothelegend wrote:

Hello all,
I have altered a simple macro to find a record within a sheet why oh
why does it not work when a new work sheet is created and I copy the
macro across and also how do I make this search all sheets within a
work book all help gratefully received.

Sub cmdFind_Click()
Dim nResult As Integer
Dim cFind As String
Dim cBookMark As String
'
Cells.Find(range("a1"), LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext,
MatchCase:= _
False).Activate

End Sub

------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/

--

Dave Peterson