Yes, you typed in x1up rather than xlup. the constant is all letters, no
numbers.

--
Regards,
Tom Ogilvy

"Jan Cairns" wrote in message
...
Hi Klaus

Macro is showing Run Tim Error 1004 - Application-Define
or Object Define Error

On going into Debug it is highlighting the following line:

Selection.End(x1Up).Select

The cursor is also sitting on row 65536 (or any other row
number I changed the macro to) on the worksheet

Have I done something wrong, I am just learning VB.

Any idea where I have gone wrong.

Regards Jan




-----Original Message-----
Hi Jan,
try the following macro:

Sub DeleteSTD()
ActiveSheet.Cells(65536, 2).Select
Selection.End(xlUp).Select
LastRow = Selection.Row
For i = 4 To LastRow
If UCase(Cells(i, 2).Value) = "STD" Then
Rows(i).Delete
End If
Next
End Sub

Regards
Klaus

-----Original Message-----
I have an output sheet that I am trying to extract
information from. Trouble is it is not always in the
same
rows or the same number of rows in every output (100
rows
Max). I have identified a common factor in column B for
all the rows that are unwanted they contain STD (in
upper,
lower or mixed case) as part of the cell contents.

I need a macro that will search down column B (Cell B4
Start point) until it comes to a cell containing STD
then
for it to remove that entire row from the sheet2 and
continue until all rows containing STD in column B are
removed and I am left with only the required data.

Any help on this would be most welcome.

Rrgards Jan


.

.