Bob Phillips, thanks for the alternate option. However, a new problem has surfaced. The macro doesn't work at all, not the old version or the new version that you wrote. I should point out that it stopped working after playing around with my conditional formatting. However, I have taken the drastic step of deleting all of those in an effort to figure out what the problem is. Also the problem surfaced before I even tried your code. What would cause my macro to stop working? the other macros still work, so I didn't "turn off macros..." somehow.
Here is all the macros in Sheet1:
Private Sub CommandButton1_Click()
' Sort button
Range("b1").sort Key1:=Range("b4"), Order1:=xlAscending, Key2:=Range("h1"), Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Sub CommandButton_Bottom_row_Click()
' Move_To_bottom_Row Macro
' Keyboard Shortcut: Ctrl Shift + Z
Worksheets("Coordinator list").Activate
Range("c1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, -1).Activate
End Sub
Sub CommandButtonUP_Top_Row_Click()
' Move_To_top_Row Macro
Worksheets("Coordinator list").Activate
Range("b3").Select
End Sub
Sub CommandButton_LAST_column_Click()
' Move to last column
ActiveCell.EntireRow.Range("x1").Activate
End Sub
Sub CommandButton_First_Column_Click()
' Move to first column
ActiveCell.EntireRow.Range("a1").Activate
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo wsc_exit
Application.ScreenUpdating = False
Application.EnableEvents = False
If Target.Cells.Count = 1 Then
If Not Intersect(Range("E3:E1000, J2:O1000,R2:AB1000"), Target) Is Nothing Then
Target.Value = UCase(Target.Value)
End If
End If
wsc_exit:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Private Sub CommandButton1_Click()
' Sort button
Range("b1").sort Key1:=Range("b4"), Order1:=xlAscending, Key2:=Range("h1"), Order2:=xlAscending, Header:=xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
Sub CommandButton_Bottom_row_Click()
' Move_To_bottom_Row Macro
' Keyboard Shortcut: Ctrl Shift + Z
Worksheets("Coordinator list").Activate
Range("c1").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, -1).Activate
End Sub
Sub CommandButtonUP_Top_Row_Click()
' Move_To_top_Row Macro
Worksheets("Coordinator list").Activate Range("b3").Select
End Sub
Sub CommandButton_LAST_column_Click()
' Move to last column
ActiveCell.EntireRow.Range("x1").Activate
End Sub
Sub CommandButton_First_Column_Click()
' Move to first column
ActiveCell.EntireRow.Range("a1").Activate
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo wsc_exit
Application.ScreenUpdating = False
Application.EnableEvents = False
If Target.Cells.Count = 1 Then
If Not Intersect(Range("E3:E1000, J2:O1000,R2:AB1000"), Target) Is Nothing Then
Target.Value = UCase(Target.Value)
End If
End If
wsc_exit:
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub