Need help creating vba code

Moot70 · #15 10-28-2019, 02:41 PM

Code:

Private Sub Worksheet_Change(ByVal Target As Range) Dim tabArray As Variant
Dim i As Long
tabArray = Array("B3", "F3", "B4", "F4", "B5", "F5", "B6", "F6", "B7", "F7", "B8", "F8", "B9", "F9", "B10", "F10",

"B11", "F11", "B12", "F12", "B13", "F13", "B14", "F14", "B15", "F15", "B16", "F16", "B17", "F17", "B18", "F18")
Application.ScreenUpdating = False
For i = LBound(tabArray) To UBound(tabArray)
If tabArray(i) = Target.Address(0, 0) Then
If i = UBound(tabArray) Then
Me.Range(tabArray(LBound(tabArray))).Select
Else
Me.Range(tabArray(i + 1)).Select
End If
End If
Next i
Application.ScreenUpdating = True
End Sub

Where I put this code at?

TY
Moot70

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Creating a QR code in microsoft word?	ayupchap	Word	1	08-20-2019 02:30 PM
Creating and Referencing Drop Down Text Boxes in VBA code	cjkmarx	Word VBA	1	12-12-2016 03:20 PM
Code to creating a custom TOC including too many styles	amer1749	Word VBA	4	07-03-2016 10:42 AM
creating a code to create dynamic text in word	ah8471	Word VBA	1	12-29-2015 10:52 PM
Creating VBA Code to Delete Empty Column in Table	Faugs	Word VBA	5	08-07-2014 03:29 PM