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![Smile :) :)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
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>
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>