macro running on current sheet

[kelvin_9]

hi all, someone know any problem might happened in my below code?
i record my code to add a new sheet and then refer to my main code on current sheet, but it's doesn't work property
thanks for the advice

Sub Macro001()
'
' Macro001 Macro
'


'
Sheets("MASTER").Visible = True
Sheets("Master").Select
Sheets("Master").Copy After:=Sheets(3)
Sheets("MASTER (2)").Select
Sheets("MASTER (2)").Name = "00001"
Sheets("MASTER").Visible = False
Sheets("00001").Select


End Sub
Sub Macro001()
'
' Macro001 Macro
'


'
Range("B4").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(""4000"",Pre-Count!R[-1]C)"



End Sub
****** id="cke_pastebin" style="position: absolute; top: 408px; width: 1px; height: 1px; overflow: hidden; left: -1000px;">End Sub</body>

 

[kelvin_9]

|pre-count| only

 

[Fluff]

Try this

activecell.FormulaR1C1 = "=CONCATENATE(""4000"",'Pre-Count'!R[-1]C)"