Macro to delete a group of CELLS

I am trying to get a macro to delete a group of cells as I parse down
through the block of instrument data, to weed out blanks or corrupt data. I
just want the macro to delete the 4 or 5 adjacent cells and move the data
block up (similar to a right click delete- which asks if you want up, right
left or entire row, etc

Sub delete()
'
' delete Macro
' Macro recorded 5/5/2006 by Paul
'
' Keyboard Shortcut: Ctrl+d
'
Range("E2378:L2378").Select
Selection.delete Shift:=xlUp
End Sub.

Only problem with recorder is it goes to a defined cell. I would like my
macro to work wherever the cursor is- not always at E:2378 to L:2378

I appreciate the help!

Thanks
Paul

Have you tried without

Range("E2378:L2378").Select

--
Don Guillett
SalesAid Software

wrote in message
...
I am trying to get a macro to delete a group of cells as I parse down
through the block of instrument data, to weed out blanks or corrupt data.
I just want the macro to delete the 4 or 5 adjacent cells and move the data
block up (similar to a right click delete- which asks if you want up, right
left or entire row, etc

Sub delete()
'
' delete Macro
' Macro recorded 5/5/2006 by Paul
'
' Keyboard Shortcut: Ctrl+d
'
Range("E2378:L2378").Select
Selection.delete Shift:=xlUp
End Sub.

Only problem with recorder is it goes to a defined cell. I would like my
macro to work wherever the cursor is- not always at E:2378 to L:2378

I appreciate the help!

Thanks
Paul

Works like a charm. Thanks!

Paul


"Don Guillett" wrote in message
...
Have you tried without

Range("E2378:L2378").Select

--
Don Guillett
SalesAid Software

wrote in message
...
I am trying to get a macro to delete a group of cells as I parse down
through the block of instrument data, to weed out blanks or corrupt data.
I just want the macro to delete the 4 or 5 adjacent cells and move the
data block up (similar to a right click delete- which asks if you want up,
right left or entire row, etc

Sub delete()
'
' delete Macro
' Macro recorded 5/5/2006 by Paul
'
' Keyboard Shortcut: Ctrl+d
'
Range("E2378:L2378").Select
Selection.delete Shift:=xlUp
End Sub.

Only problem with recorder is it goes to a defined cell. I would like my
macro to work wherever the cursor is- not always at E:2378 to L:2378

I appreciate the help!

Thanks
Paul

glad to help

--
Don Guillett
SalesAid Software

wrote in message
...
Works like a charm. Thanks!

Paul


"Don Guillett" wrote in message
...
Have you tried without

Range("E2378:L2378").Select

--
Don Guillett
SalesAid Software

wrote in message
...
I am trying to get a macro to delete a group of cells as I parse down
through the block of instrument data, to weed out blanks or corrupt data.
I just want the macro to delete the 4 or 5 adjacent cells and move the
data block up (similar to a right click delete- which asks if you want
up, right left or entire row, etc

Sub delete()
'
' delete Macro
' Macro recorded 5/5/2006 by Paul
'
' Keyboard Shortcut: Ctrl+d
'
Range("E2378:L2378").Select
Selection.delete Shift:=xlUp
End Sub.

Only problem with recorder is it goes to a defined cell. I would like
my macro to work wherever the cursor is- not always at E:2378 to L:2378

I appreciate the help!

Thanks
Paul

Does the same approach work to prompts to load a file into a worksheet so
that I chose the file/path and filename instead of having it cast in stone
each time?

Thanks
Paul


"Don Guillett" wrote in message
...
glad to help

--
Don Guillett
SalesAid Software

wrote in message
...
Works like a charm. Thanks!

Paul


"Don Guillett" wrote in message
...
Have you tried without

Range("E2378:L2378").Select

--
Don Guillett
SalesAid Software

wrote in message
...
I am trying to get a macro to delete a group of cells as I parse down
through the block of instrument data, to weed out blanks or corrupt
data. I just want the macro to delete the 4 or 5 adjacent cells and move
the data block up (similar to a right click delete- which asks if you
want up, right left or entire row, etc

Sub delete()
'
' delete Macro
' Macro recorded 5/5/2006 by Paul
'
' Keyboard Shortcut: Ctrl+d
'
Range("E2378:L2378").Select
Selection.delete Shift:=xlUp
End Sub.

Only problem with recorder is it goes to a defined cell. I would like
my macro to work wherever the cursor is- not always at E:2378 to L:2378

I appreciate the help!

Thanks
Paul