What is the active cell when you get the error? With that as the=20
activecell, what would it mean to move 11 columns to the left?

--=20
Regards,

Tushar Mehta
www.tushar-mehta.com
Excel, PowerPoint, and VBA add-ins, tutorials
Custom MS Office productivity solutions

In article <[email protected]>,=20
[email protected] says...
> Why do I keep getting 1004 error when trying to move active cell ?? :
>=20
> For a =3D 1 To 6000
> If ActiveCell =3D "F" Then 'Sortering for kvinder og 20-39 =E5r
>=20
> ActiveCell.Offset(0, -1).Select ' Flyt activ celle til alder
>=20
> If ActiveCell >=3D 20 And ActiveCell >=3D 39 Then
>=20
> ActiveCell.Offset(0, 12).Select ' Flyt activ celle til fedtproce=
nt
>=20
> If ActiveCell < 21 Then
> myCount =3D Sheets("Fedtprocent").Range("C12") + 1
> Sheets("Fedtprocent").Range("C12") =3D myCount
> End If
>=20
> If ActiveCell >=3D 21 And ActiveCell < 33 Then
> myCount =3D Sheets("Fedtprocent").Range("C13") + 1
> Sheets("Fedtprocent").Range("C13") =3D myCount
> End If
>=20
> If ActiveCell >=3D 33 And ActiveCell < 39 Then
> myCount =3D Sheets("Fedtprocent").Range("C14") + 1
> Sheets("Fedtprocent").Range("C14") =3D myCount
> End If
>=20
> If ActiveCell >=3D 39 Then
> myCount =3D Sheets("Fedtprocent").Range("C15") + 1
> Sheets("Fedtprocent").Range("C15") =3D myCount
> End If
>=20
> End If
>=20
> End If
>=20
> If ActiveCell.Value =3D "" Then 'End macro ved tom celle
> Sheets("Fedtprocent").Select
> Range("L2").Select
> Application.ScreenUpdating =3D True
> End
> End If
>=20
> ActiveCell.Offset(1, -11).Select ' Flyt celle ned. Fedtprocent celle er=
=20
> valgt <------------ERROR !
>=20
> Next a
>=20
>=20
> Regards Shamran=20
>=20
>=20
>=20