Adding data to spreadsheet cells

[cs1ctp]

Hi,

I have the following code to add data to cells in the spreadsheet. However, I wish to add it to a specific tab on the spreadsheet named "Jan". How do I do this, and is there anyway that I can add it whilst still keeping the sheet that I have active visible.

        If Cells(1, 1).Value = "" Then
            lRowNum = 1
        Else
            lRowNum = ActiveSheet.UsedRange.Rows.Count + 1
        End If
        Cells(lRowNum, 1).Value = Contractdata

Thanks in advance for your help.

Regards,

Chris

 

[SiddersAtCHEP]

Try writing the data using:
Range("Jan!" & Cells(lRowNum,1).Address).Value = Contractdata

If the sheet name has spaces use single quotes round the sheet name e.g.
Range("'Jan 2005'!" & Cells(lRowNum,1).Address).Value = Contractdata