Assign Cell Address To Variable . .

[Evagrius Ponticus]

Hi all,

I've tried a number of ways to solve this but I keep getting an error. I declared MyLoc as range. I keep getting an error in "MyLoc = activecell.address". How do I assign the range of the active cell to a variable so I can use that variable as a range?? Thanks for any help.

    Do Until ActiveCell.Value = Me.TextBox1.Value
    ActiveCell.Offset(1, 0).Activate
    Loop
    MyUser = ActiveCell.Offset(0, -1)
    MyUserNum = ActiveCell.Offset(0, -2)
    MyLoc = ActiveCell.Address

'AUTOFILL BASED ON MyUser
    MyActive.Range("T2").AutoFilter Field:=20, _
    Criteria1:=MyLoc.Offset(0, 1).Value & "." & _
    MyLoc.Offset(0, 2) & "@yahoo.com"

 

[Scott Huish]

Not quite sure what you are trying to do exactly but:

Dim MyLoc As Range
Set MyLoc = ActiveCell

 

[Evagrius Ponticus]

Thanks HotPepper - that worked - I guess I should have known that since I already declared MyLoc as range then I didn't need to add the .address . . .thanks . .