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>

 

[Norie]

Which sheet is the second set of code meant to run on?

 

[Fluff]

Firstly you have 2 subs with the same name. Change the name of one of them.
Secondly what doesn't "Work Properly"?

 

[kelvin_9]

i have 2 module.
module 1 is used to be add sheet(assume 10sheets in total)
module 2 is record my code

i set combobox and run module1 and then module2
module1 works fine and module2 will pop up a small window on top left corner with name"update values:count"


thanks Norie & Fluff

 

[kelvin_9]

anyone know, please?

 

[Fluff]

I don't understand this

module2 will pop up a small window on top left corner with name"update values:count"

Could you please re-explain

 

[kelvin_9]

after i run moudle1 to add a new sheet(named 00001)
it works
but then it cant load module2 successfully which is:
Range("B4").Select
ActiveCell.FormulaR1C1 = "=CONCATENATE(""4000"",Pre-Count!R[-1]C)"

it pop up a small window like to open a file from top left menu

sorry for my poor presentation

 

[Fluff]

Do you have a sheet in that workbook called Pre-Count?

 

[kelvin_9]

yes, Fluff
i have 2 sheet at all, which is Pre-Count and 00001 after added.
but i doubt, why i added a new sheet and named 00001, i can't run the other macro in current sheet B4

 

[Fluff]

Select the pre-count sheet & run this

Sub Chk()
MsgBox "|" & ActiveSheet.Name & "|"
End Sub

What does the msgbox say?