Reference A Cell

[somenoob]

Hi everyone, can anyone help me?

i would like to reference a cell from a spreadsheet 'List' to a new spreadsheet created.

when i run the macro,

Sub newsheet()
For i = 1 To Sheets.Count - 1
nem = "Chk_" & i
On Error Resume Next
If Sheets(nem) Is Nothing Then
Sheets.Add after:=Sheets(i)
Sheets(i + 1).Name = nem
Sheets(nem).Range("A1") = "Failure_Class"
Sheets(nem).Range("A3") = "Item Category"
End If
Next
End Sub

a new spreadsheet will be created.

I would like to get the value from the 'List' spreadsheet in cell D16 to the new spreadsheet in cell A11

Thanks

 

[Norie]

Isn't it just something like this?

Sheets(nem).Range("A11") = Worksheets("List").Range("D16")

 

[somenoob]

thanks it worked

 

[Trevor G]

Please don't double post