Yeoman.jeremy
Board Regular
- Joined
- Apr 4, 2011
- Messages
- 90
Hi there,
I'm trying to write a macro that will hide a macro, and unhide another in the same script.
Basically, what happens is when i click a certain command button, it calls a couple of other macros(one of which defines the save name, and saves the workbook, then wipes the workbook apart from the protected cells), but within one macro i want it to hide a command button and reveal another before it saves, then after it saves i need it to revert.
Here is my code for the macro that saves the file
Sub NewJobSheet_mcr()
Call AlterDuplicate_mcr
ThisFile = Range("J6").Value
ChDir "C:\Documents and Settings\Jan\Desktop\Quotes to sort"
ActiveWorkbook.SaveAs FileName:=ThisFile
Call ReturnDuplicate_mcr
ActiveSheet.Unprotect
[G2] = [G2] + 1
Call ClearForm_mcr
Call Uncheck
The Alter and return duplicate macros are
Sub AlterDuplicate_mcr()
CommandButton3.Visible = False
CommandButton5.Visible = True
End Sub
Sub ReturnDuplicate_mcr()
CommandButton3.Visible = True
CommandButton5.Visible = False
End Sub
When i run just the AlterDuplicate_mcr() macro, it says
"Runtime Error '424':
Object Required"
I'm trying to write a macro that will hide a macro, and unhide another in the same script.
Basically, what happens is when i click a certain command button, it calls a couple of other macros(one of which defines the save name, and saves the workbook, then wipes the workbook apart from the protected cells), but within one macro i want it to hide a command button and reveal another before it saves, then after it saves i need it to revert.
Here is my code for the macro that saves the file
Sub NewJobSheet_mcr()
Call AlterDuplicate_mcr
ThisFile = Range("J6").Value
ChDir "C:\Documents and Settings\Jan\Desktop\Quotes to sort"
ActiveWorkbook.SaveAs FileName:=ThisFile
Call ReturnDuplicate_mcr
ActiveSheet.Unprotect
[G2] = [G2] + 1
Call ClearForm_mcr
Call Uncheck
The Alter and return duplicate macros are
Sub AlterDuplicate_mcr()
CommandButton3.Visible = False
CommandButton5.Visible = True
End Sub
Sub ReturnDuplicate_mcr()
CommandButton3.Visible = True
CommandButton5.Visible = False
End Sub
When i run just the AlterDuplicate_mcr() macro, it says
"Runtime Error '424':
Object Required"