Select 2 rows up & X Column

[*shudder*]

I have a select change routine which currently works fine.

I wish to extend it so as I can take the value of the cell 2 rows up in column F and pass it into another macro so I can add the text to an Outlook task (I already have the code for this).

This is my select change routine:

Private Sub Worksheet_Change(ByVal Target As Range)

'Do nothing if more than one cell is changed or content deleted
If Target.Cells.Count > 1 Then Exit Sub

ActiveSheet.Unprotect
If Not Intersect(Target, Range("F10:F100")) Is Nothing Then
    With ActiveCell.Offset(-2).EntireRow
        .AutoFit
        .RowHeight = .RowHeight + 12.75
        'Additional code here
    End With
End If
ActiveSheet.Protect

Thanks in advance

 

[escott]

Try adding this in

Dim Str As String
Str = ActiveCell.Row
Range("F" & Str).Select
Activecell.Offset(-2,0).Select

 

[*shudder*]

Works great, thanks

 

[escott]

I think I may have missed your point. Try this

Dim Str As String
Str = ActiveCell.Row
Range("F" & Str).Select
ActiveCell.Offset(-2, 0).Select
CellValue = ActiveCell.Value
Call NewMacro(CellValue)


Sub NewMacro(Strvalue As String)
Range("A2").Value = Strvalue
End Sub