View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
CYaYa CYaYa is offline
external usenet poster
 
Posts: 6
Default Using a macro to delete cells from any row

Good morning,
I have set-up the following macro to delete certain cells of a row.

Sub test()
'
' test Macro
'
' Keyboard Shortcut: Ctrl+t
'
Range("A19:A19").Select
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
Range("A19:I19,L19,N19:U19").Select
Range("A19").Activate
Selection.ClearContents
End Sub

It deletes the cells that I need it to, however it always deletes the cells
in row 19 (Since that is where I recorded the macro). What can I put in the
code to get the macro to delete the cells from whatever row is active (i.e.
if I click on cell "A4" have the macro delete the cells in row 4, or if cell
"A250" is clicked it deletes the cells in row 250 etc...)? Thanks for any
help that can be provided.

Chad