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".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