Sub lastrowineachsht()
'On Error Resume Next
For i = 1 To Sheets.Count
With Sheets(i)
'MsgBox Sheets(i).Name
lr = .Cells.Find("*", Cells(Rows.Count, Columns.Count) _
, , , xlByRows, xlPrevious).Row
'MsgBox lr
..Range("B1:M" & lr).Interior.ColorIndex = 16 'Select
End With
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"tlwhite" wrote in message
...
I would like to perform a macro on multiple spreadsheets with varying
numbers
of rows. When recording the macro, I used the keystrokes to go to the end
of
the spreadsheet; however, when I apply the macro to other spreadsheets, it
uses a fixed row area. How can I get this to go to the end of the
spreadsheet?

tlwhite

Range("A2").Select
ActiveCell.SpecialCells(xlLastCell).Select
Range(Selection, Cells(1)).Select
Range("B1:M2028").Select
Range("M2028").Activate