Hi,

I'm not sure putting this in Worksheet_Activate is the right thing to do
because it will execute every time you select the worksheet.

You don't give details of columns or formula so here's a way of entering a
formula and filling down as far as there are data in an adjacent column.

Private Sub Worksheet_Activate()
Dim LastRow As Long
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Range("B1").Formula = "=A1"
Range("B1:B" & LastRow).FillDown
End Sub
--
Mike

When competing hypotheses are otherwise equal, adopt the hypothesis that
introduces the fewest assumptions while still sufficiently answering the
question.


"Grey Old Man" wrote:

I am writing an Excel 2002 template and need to reformat text data which is
initially copied into an empty sheet (Imported Data). The number of columns
is constant, but the number of rows will vary.
My second sheet (Converted Data) contains lookups or formulae to manipulate
the text strings. These are all in row 2.

The formulae in 'Converted Data' are copied down manually to match the
number of rows in 'Imported Data', thus converting all of the data.

How can I achieve this automatically using VBA?


If I right click on the 'Converted Data' tab and 'View Code', I assume I can
write the VBA code here ....


Private Sub Worksheet_Activate()
' VBA code
End Sub