deletion of rows

[pradyuthal]

If I delete cell a1 in sheet1 cell a1 through a10 in sheet2 will be deleted automatically. How can I delete the cell a1 sheet1 and its related cells a1 through a10 in sheet2? Please help me.

 

[bfarley4]

Not sure I completely understand where u r going - but here is a small code snipit to get you on the right path. Please comment if you need additional assistance with more specifics. You could also link to hot key if you want to avoid the input box (just set it to read in the current cell).

Sub DeleteData()
Dim rngToDelete As String
Dim blnConfirm As Boolean
Dim intDeleteRowStart, intDeleteRowEnd, intDeleteColumn As Integer
' Set the rows to delete on 2nd tab
intDeleteRowStart = 1
intDeleteRowEnd = 10
' Ask what to delete
rngToDelete = InputBox("Please enter cell to delete")

' Find column
Range(rngToDelete).Select
intDeleteColumn = Selection.Column
' Delete related cells
Range(rngToDelete).Select
Selection.Delete Shift:=xlToLeft
Sheets("Sheet2").Select
Range(Cells(intDeleteRowStart, intDeleteColumn), Cells(intDeleteRowEnd, intDeleteColumn)).Select
Selection.Delete Shift:=xlToLeft
End Sub