How to make VBA code only apply to a range of cells

[anthony777]

I would like for the VBA code below to only effect a range of cells rather than the entire worksheet. I have tried manipulation and a few different things with no success. What makes sense to me is to change the line "With Target.Cells(1)" but that did not work.

Please help!

Option Explicit
Option Compare Text

Private Sub Worksheet_Change(ByVal Target As Range)

   Dim r                As Excel.Range
   Dim StartPos         As Long

   With Target.Cells(1)
      If .Value <> vbNullString Then

         Application.EnableEvents = False
         For Each r In Sheet1.UsedRange.Columns(1).Cells

            If r.Value <> vbNullString Then
               If InStr(.Value, r.Value) > 0 Then
                  .Value = Replace(.Value, r.Value, r.Offset(, 1).Value)
                  .Characters(InStr(.Value, r.Offset(, 1).Value), 1).Font.Name = r.Offset(, 1).Font.Name
               End If
            End If
         Next
         Application.EnableEvents = True
      End If
   End With

End Sub

[cytop]

Perhaps this...

Private Sub Worksheet_Change(ByVal Target As Range)

   Dim r                As Excel.Range
   Dim ChangedCell      As Excel.Range
   Dim StartPos         As Long

   On Error GoTo Catch
   
   Application.EnableEvents = False
   
   For Each ChangedCell In Intersect(Range("A10:C50"), Target)

      With ChangedCell
         If .Value <> vbNullString Then

            For Each r In Sheet2.UsedRange.Columns(1).Cells

               If r.Value <> vbNullString Then
                  If InStr(.Value, r.Value) > 0 Then
                     .Value = Replace(.Value, r.Value, r.Offset(, 1).Value)
                     .Characters(InStr(.Value, r.Offset(, 1).Value), 1).Font.Name = r.Offset(, 1).Font.Name
                  End If
               End If
            Next
         End If
      End With
   Next
   
Catch:

   Application.EnableEvents = True

End Sub

With the range 'A10:C50 edited as needed.

[anthony777]

Perfect!!! Thank you!!

[Winon]

Hello anthony777,

Please could you be more specific regarding the actual outcome of the result, and where and how it should be like!

Maybe it would be I good idea to attach a sample workbook.

Make sure there is just enough data to demonstrate your need.

Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate.

Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

Thank you.

[anthony777]

Thank you for the feedback in the future I will be sure to be clear and concise.

[Winon]

Hi anthony777,

I am still in the dark!

Please could you show me the difference? Maybe I am just tired, and everything appears as clear as mud.(:

Spank you so much!

[cytop]

@Winon,

This is a follow on question from another thread - might help to unmuddy the waters...

[anthony777]

@Winon

For some reason the attachment option is not working for me.

What I am trying to do here is automatically substitute symbols for specific text. That VBA code was provided in a previous post, but I want this VBA to only effect a range of cells "D9:D49" for example.