EXCEL code need HELP

[wuwang]

Hello,

The following code is to find the first row - last row and the first column - last column. It ran fine in EXCEL2000
but received error message in EXCEL 97.

The error message is :
"Run-time error '1004'
Unable to ge the CurrentReigon property of the Range class"

Could you help me to fix the problem?

Here is the code:

Private Sub cmd_Update_Click()
Dim ExpRang As Range

Set ExpRang = ActiveCell.CurrentRegion 'Error msg
here -- unable to get currentreigon
property of the RANGE class


FirstCol = ExpRang.Columns(1).Column
LastCol = FirstCol + ExpRang.Columns.Count - 1
FirstRow = ExpRang.Rows(1).Row
LastRow = FirstRow + ExpRang.Rows.Count - 1

Range("A1:A1&quot.Select

.............................

 

[SkipVought]

Hi,
Do you have sheet protection on? If so, you cannot select ranges while a sheet is protected. Skip,
metzgsk@voughtaircraft.com

 

[wuwang]

Hi Skip,

Thanks for your help. No, there is no sheet protection on.
Is there any other reason to cause this problem?

 

[SkipVought]

Golly, I have not idea. Are you running this from a button on a form? Skip,
metzgsk@voughtaircraft.com

 

[wuwang]

Actually the button is set on a worksheet.

Paul

 

[ChrisHirst]

Looking at the couple of questions you have asked, Could I suggest that you work the other way around, that is write your code in Excel 97 VBA then use it with Excel 2000. The reason being Excel 2000 is backwards compatible (mostly) but you do not get forwards compatibility.

Chris

 

[wuwang]

Let me ask in this way. How can we find the first row - last row and the first column - last column in EXCEL 97?

 

[SkipVought]

First/last Row/Column of a range?

With rng
   FirstRow = .Row
   LastRow = .Row + .Rows.Count -1
   First Col = .Column
   LastCol = .Column + .Columns.Count - 1
End With

Hope this helps Skip,
metzgsk@voughtaircraft.com