Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Code runs in XL97 but not 2000?
The following code finds the search string in any worksheet of the current
workbook. It works in XL97, but crashes in XL2000 with "Run time error '13': Type mismatch". Why is this? When I go to debug it, the editor is opened at this line: Set sh = ActiveSheet Dim i As Integer, sh As Worksheet Dim MyFind As Range Application.ScreenUpdating = False Set sh = ActiveSheet Dim Message, Title, MyValue Message = "Enter item number" Title = "Search Item" MyValue = InputBox(Message, Title, Default) For i = 1 To Sheets.Count Sheets(i).Select Set MyFind = Cells.Find(What:=MyValue) If Not MyFind Is Nothing Then Cells.Find(What:=MyValue).Activate Application.ScreenUpdating = True Exit Sub End If Next i MsgBox "Item not found, search again" sh.Activate Application.ScreenUpdating = True End Sub |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
vba code runs...need spaces ........ | Excel Discussion (Misc queries) | |||
Office 2000 Excel Macro runs very slow in 2003, why? | Excel Discussion (Misc queries) | |||
Code runs different in a commandbutton than a macro why? | Excel Programming | |||
Code runs every other time | Excel Programming | |||
How to keep from going dizzy when my code runs | Excel Programming |