Could you please tel me why this wouldn't work

Sheets("a lap").Range(Cells(Target.Row, MaxCol + 4), Cells(Target.Row, _
256)).ClearContents

I'm running it from some code in a sheet called A grade if that makes a
difference.
Maxcol is dim as integer.

Thanks

Hi,

You don't say how your setting target.row or maxcol and I think you may mean
activecell.row instead of target .row, try this

maxcol = 5
Sheets("a lap").Range(Sheets("a lap").Cells(ActiveCell.Row, maxcol + 4),
Sheets("a lap").Cells(ActiveCell.Row, 256)).ClearContents

Note I've manually set maxcol.

Mike

"NDBC" wrote:

Could you please tel me why this wouldn't work

Sheets("a lap").Range(Cells(Target.Row, MaxCol + 4), Cells(Target.Row, _
256)).ClearContents

I'm running it from some code in a sheet called A grade if that makes a
difference.
Maxcol is dim as integer.

Thanks

what have you Dim'ed Target as?

Also could you post a bit more of the code so i can see where the values are
being set.
--
Kevin Smith :o)


"NDBC" wrote:

Could you please tel me why this wouldn't work

Sheets("a lap").Range(Cells(Target.Row, MaxCol + 4), Cells(Target.Row, _
256)).ClearContents

I'm running it from some code in a sheet called A grade if that makes a
difference.
Maxcol is dim as integer.

Thanks

Mike thanks, worked a treat. The target.row part was fine, just needed the
extra sheets("a lap").cells..... in the range part of the statement.



"NDBC" wrote:

Could you please tel me why this wouldn't work

Sheets("a lap").Range(Cells(Target.Row, MaxCol + 4), Cells(Target.Row, _
256)).ClearContents

I'm running it from some code in a sheet called A grade if that makes a
difference.
Maxcol is dim as integer.

Thanks

The problem is that your Cells function isn't (necessarily) pointing
to the worksheet "a lap". Because it is unqualified (doesn't have a
worksheet prefix), it points to the either the ActiveSheet if the
code is in a regular module, or the worksheet in which the code
resides. Use

With Sheets("a lap")
.Range(.Cells(Target.Row, MaxCol + 4), _
.Cells(Target.Row, 256)).ClearContents
End With

Note the leading periods.

Cordially,
Chip Pearson
Microsoft Most Valuable Professional
Excel Product Group, 1998 - 2009
Pearson Software Consulting, LLC
www.cpearson.com
(email on web site)





On Fri, 4 Sep 2009 01:51:05 -0700, NDBC
wrote:

Could you please tel me why this wouldn't work

Sheets("a lap").Range(Cells(Target.Row, MaxCol + 4), Cells(Target.Row, _
256)).ClearContents

I'm running it from some code in a sheet called A grade if that makes a
difference.
Maxcol is dim as integer.

Thanks