Probably because you have that statement in the wrong place and going -11
goes off the sheet. I suspect it should only be executed if the command
ActiveCell.Offset(0, 12).Select ' Flyt activ celle til fedtprocent

has been executed - but that requires passing two IF statemetns to get
there. The Move back is outside those if statements - so it is executed on
every loop.

--
Regards,
Tom Ogilvy


"-[::::Shamran::::]-" wrote in message
...
Why do I keep getting 1004 error when trying to move active cell ?? :

For a = 1 To 6000
If ActiveCell = "F" Then 'Sortering for kvinder og 20-39 år

ActiveCell.Offset(0, -1).Select ' Flyt activ celle til alder

If ActiveCell = 20 And ActiveCell = 39 Then

ActiveCell.Offset(0, 12).Select ' Flyt activ celle til
fedtprocent

If ActiveCell < 21 Then
myCount = Sheets("Fedtprocent").Range("C12") + 1
Sheets("Fedtprocent").Range("C12") = myCount
End If

If ActiveCell = 21 And ActiveCell < 33 Then
myCount = Sheets("Fedtprocent").Range("C13") + 1
Sheets("Fedtprocent").Range("C13") = myCount
End If

If ActiveCell = 33 And ActiveCell < 39 Then
myCount = Sheets("Fedtprocent").Range("C14") + 1
Sheets("Fedtprocent").Range("C14") = myCount
End If

If ActiveCell = 39 Then
myCount = Sheets("Fedtprocent").Range("C15") + 1
Sheets("Fedtprocent").Range("C15") = myCount
End If

End If

End If

If ActiveCell.Value = "" Then 'End macro ved tom celle
Sheets("Fedtprocent").Select
Range("L2").Select
Application.ScreenUpdating = True
End
End If

ActiveCell.Offset(1, -11).Select ' Flyt celle ned. Fedtprocent celle er
valgt <------------ERROR !

Next a


Regards Shamran