Hi all,
Anybody know why the code below causes MS Office 97 on NT4 to crash after a few iterations?? Or is just one of those microsoft things???Anybody any ideas??
Public Sub Filter_List()
With Worksheets("CriteriaValues"
.Range("Criteria"
.Cells(2, 1).Value = InputBox(prompt:="Enter Customer
required"
.Cells(2, 2).Value = InputBox(prompt:="Enter Circuit
Number required"
End With
Worksheets("DataValues"
.Range("Data"
.AdvancedFilter
Action:=xlFilterInPlace, CriteriaRange _
:=Worksheets("CriteriaValues"
.Range("Criteria"
,
Unique:=False
End Sub
Cheers,
Rob
Anybody know why the code below causes MS Office 97 on NT4 to crash after a few iterations?? Or is just one of those microsoft things???Anybody any ideas??
Public Sub Filter_List()
With Worksheets("CriteriaValues"
.Cells(2, 1).Value = InputBox(prompt:="Enter Customer
required"
.Cells(2, 2).Value = InputBox(prompt:="Enter Circuit
Number required"
End With
Worksheets("DataValues"
Action:=xlFilterInPlace, CriteriaRange _
:=Worksheets("CriteriaValues"
Unique:=False
End Sub
Cheers,
Rob