Excel Message box, fields that are 0
OOPS wrong thread
"Mike H" wrote:
Hi,
From your mmessage header I guess your trying to copy the used range of each
sheet so try this
Sub group()
Dim i As Long
For i = 2 To Sheets.Count
lastrow = Worksheets("total").Cells(Rows.Count, "A").End(xlUp).Row
Worksheets(i).UsedRange.Copy _
Destination:=Worksheets("total").Cells(lastrow + 1, 1)
Next
End Sub
Mike
"Jimjai" wrote:
Hi,
I would like to create a macro button that loops thru a column, if any
values on that column is greater than 0 then pop the message saying "pass
due" Thanks
Jimmy
|