Usedrange or not Usedrange

[happymc100]

Hi people,
I am using Usedrange to select my area for using special cells to select and fill blank cells. However, how do I do this, but not select the last column of data.
Rgds
Mike

 

[KenWright]

One way, but usedrange can be unpredicatable and incorrect:-

Sub PartRange()

Set RngOrig = ActiveSheet.UsedRange

With RngOrig
Cl = .Columns.Count
Rw = .Rows.Count
Set RngNew = .Cells(1, 1).Resize(Rw, Cl - 1)
End With

MsgBox RngNew.Address

End Sub

Regards
Ken.............

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission

----------------------------------------------------------------------------

 

[happymc100]

Ken,
Thanks for that, It works great. Now all I need id for it to create a virtual Kylie Minogue for me, and I'll be the happiest person in the world ;-)
Cheers
Mike

 

[KenWright]

I wouldn't mind getting it to do that for me

----------------------------------------------------------------------------
It's easier to beg forgiveness than ask permission

----------------------------------------------------------------------------