Hello everyone,

I'm trying to combine the below two macros into one.
Basically the Find next macro is a box i created in the spreadsheet to find the word within the spreadsheet (To avoid 'Ctrl + F' all the time).

They are both completely different macros but for the same sheet.

Thank you!


Find Next Macro

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Target.Address <> "$C$1" Then Exit Sub
Set rng = Cells.Find(What:=Target.Value, After:=Target, LookIn:=xlValues, LookAt:=xlPart)
If rng Is Nothing Then GoTo NotFound
If rng.Address = Target.Address Then GoTo NotFound
rng.Activate
Exit Sub
NotFound:
MsgBox "Not found!", vbOKOnly, "Search for '" & Target.Value & "'"
End Sub



Auto Caps Macro

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("B14:AJ1000")) Is Nothing Then Exit Sub
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub