sherriwatkins
New Member
- Joined
- Jun 10, 2015
- Messages
- 10
Hi,
I am trying to create a code that will create a stop message if a field is left blank. I have a macro to go to the next page that I want to change. It is not working correctly and I don't know what I have done wrong. The caveat is there are 16 hidden cells that will highlight grey based on s selection on a previous page. If there is 1 machine, only one shows up, if there are 16, then all 16 show up. I need this code to work only for the highlighted fields. Here is my current code.
Application.ScreenUpdating = False
Sheets("11").Visible = True
If Worksheets("10").Range("A10") < 1 Then
MsgBox ("You must enter the length of cable for the Ethernet Cable between 0 and 330 feet.")
ElseIf Worksheets("10").Range("A10") > 0 Then
Sheets("11").Select
Range("A1").Select
Sheets("10").Visible = False
Application.ScreenUpdating = True
Please help!
I am trying to create a code that will create a stop message if a field is left blank. I have a macro to go to the next page that I want to change. It is not working correctly and I don't know what I have done wrong. The caveat is there are 16 hidden cells that will highlight grey based on s selection on a previous page. If there is 1 machine, only one shows up, if there are 16, then all 16 show up. I need this code to work only for the highlighted fields. Here is my current code.
Application.ScreenUpdating = False
Sheets("11").Visible = True
If Worksheets("10").Range("A10") < 1 Then
MsgBox ("You must enter the length of cable for the Ethernet Cable between 0 and 330 feet.")
ElseIf Worksheets("10").Range("A10") > 0 Then
Sheets("11").Select
Range("A1").Select
Sheets("10").Visible = False
Application.ScreenUpdating = True
Please help!