VBA ERROR IN READING THE SHEET

[blackorchids2002]

Hello Masters,

I am having an error bellow when using a command button.

My starting point is in Sheet 2. I want to get the last row that has a record in Sheet 1 but it continue to read the last row in Sheet 2.

Sheet 1 is my raw data
Sheet 2 is my report and has list on it.


Private Sub CommandButton1_Click()

Dim Last_Row As Long
Dim mmraw As Worksheet

Set mmraw = Sheets("Excel Report")
mmraw.Select
mmraw.Cells(1, 1).Select
Set mmraw = ActiveSheet
With ActiveSheet
Last_Row = Cells(Rows.Count, 1).End(xlUp).Row
MsgBox Last_Row
End With
End Sub

Thanks

 

[Fluff]

What is the name of Sheet1?

 

[Dossfm0q]

Hi

Last_Row = Name Off Sheet as Fluff recommend .Cells(Rows.Count, 1).End(xlUp).Row

 

[blackorchids2002]

Hi

Last_Row = Name Off Sheet as Fluff recommend .Cells(Rows.Count, 1).End(xlUp).Row

Thank you. I figured it out.

 

[Fluff]

Glad we could help & thanks for the feedback.