Hi,

I'm getting a run time error 1004
Application-defined or object-defined error

What I'm trying to do is to link the value from another sheet.
The error is raised at: ActiveCell.Offset...... line

VB Code:
  1. Sub Linker(Dis As String)
  2. TDis = Dis
  3. With Sheets("Total").Range("A1:A500")
  4.     Set b = .Find(TDis)   'Find the district
  5.     aadd = b.Address
  6. End With
  7. Sheets("Total").Select
  8. ActiveSheet.Range([aadd]).Activate
  9. 'Put the formulas where it should be
  10. ActiveCell.Offset(0, 2).Formula = "= " & TDis & " ! " & gtotactsalesw & " "
  11. End Sub

The name of the sheet is coming by Dis who is a String
gtotactsalesw is also a String

Usually in an excel cell you link a value from another by entering the formula =sheet!cell

But don't seems to do the trick here.
Any help or hint would be appreciated.

thanks