Not sure if it will speed up your macro, but if you want to know if something
is not equal, you may want to use "<" instead of "="

"Dave Peterson" wrote:

Maybe turning calculation to manual
then your code
then back to automatic (or whatever it was before)

would speed things up.

Fingerjob wrote:

This marco take over 1 min to run for me....
Does anybody have clue if i can get the run time down.

Br

Petter

Sheets("Sheet2").Select
For i = 0 To 92
rownr = 105 - i
Fjern = Cells(rownr, 6).Value
If Fjern = "Order backlog" Or Fjern = "Orders received" Then
Else: Range("e" & rownr & ",g" & rownr & ",k" & rownr & ":m" &
rownr).ClearContents
End If
Next i

--

Dave Peterson