How can I optimize my code?
As you can below I have very similar sub's and all I need to pack them into one sub is learn how
Sheets("menusheet").Select replace the "menusheet" expression with the sheet name. Any ideas welcome.
Thanks again
Sub Hide_T_Test()
'delete old sheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("T-Test").Delete
Application.DisplayAlerts = True
Sheets("menusheet").Select
Sheets("menusheet").Cells(12, 2) = "Show T-Test Data"
Sheets("menusheet").Cells(12, 3) = "show_T_Test"
Application.Run "createMenu"
Sheets("results").Select
Application.ScreenUpdating = True
End Sub
Sub Hide_Percent_Inhibition()
'delete old sheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("% Inhibition").Delete
Application.DisplayAlerts = True
Sheets("menusheet").Select
Sheets("menusheet").Cells(13, 2) = "Show % Inhibition Data"
Sheets("menusheet").Cells(13, 3) = "show_Percent_inhibition"
Application.Run "createMenu"
Sheets("results").Select
Application.ScreenUpdating = True
End Sub
Sub Hide_dRFU()
'delete old sheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("dRFU").Delete
Application.DisplayAlerts = True
Sheets("menusheet").Select
Sheets("menusheet").Cells(14, 2) = "Show dRFU Data"
Sheets("menusheet").Cells(14, 3) = "show_dRFU"
Application.Run "createMenu"
Sheets("results").Select
Application.ScreenUpdating = True
End Sub
As you can below I have very similar sub's and all I need to pack them into one sub is learn how
Sheets("menusheet").Select replace the "menusheet" expression with the sheet name. Any ideas welcome.
Thanks again
Sub Hide_T_Test()
'delete old sheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("T-Test").Delete
Application.DisplayAlerts = True
Sheets("menusheet").Select
Sheets("menusheet").Cells(12, 2) = "Show T-Test Data"
Sheets("menusheet").Cells(12, 3) = "show_T_Test"
Application.Run "createMenu"
Sheets("results").Select
Application.ScreenUpdating = True
End Sub
Sub Hide_Percent_Inhibition()
'delete old sheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("% Inhibition").Delete
Application.DisplayAlerts = True
Sheets("menusheet").Select
Sheets("menusheet").Cells(13, 2) = "Show % Inhibition Data"
Sheets("menusheet").Cells(13, 3) = "show_Percent_inhibition"
Application.Run "createMenu"
Sheets("results").Select
Application.ScreenUpdating = True
End Sub
Sub Hide_dRFU()
'delete old sheet
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets("dRFU").Delete
Application.DisplayAlerts = True
Sheets("menusheet").Select
Sheets("menusheet").Cells(14, 2) = "Show dRFU Data"
Sheets("menusheet").Cells(14, 3) = "show_dRFU"
Application.Run "createMenu"
Sheets("results").Select
Application.ScreenUpdating = True
End Sub