<div>
If your data is in Sheet1, then put this code in Sheet1's codepage, otherwise, in the codepage of the appropriate sheet: 
 

<pre><code class="code-10 nolinks" id="code-20-38143897-1">Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range
Dim rMark As Range

 For Each r In Target
 If Not Intersect(r, Range(&quot;AD:AD&quot;)) Is Nothing Then 'check if Paid is marked
 Application.EnableEvents = False
 Set rMark = Range(Cells(r.Row, 1), Cells(r.Row, &quot;AC&quot;))
 If UCase(r.Value) = &quot;PAID&quot; Then 'mark entire range pink fill
 rMark.Interior.Color = RGB(255, 128, 128)
 Else 'unmark if not Paid anymore
 rMark.Interior.ColorIndex = xlNone
 End If
 Application.EnableEvents = True
 End If
 Next r
 
End Sub
</code></pre>
 
See attached. 
 
Dave 
<a href="https://filedb.experts-exchange.com/incoming/2012/07_w27/586715/markPaid-r1.xls" target="_blank" class="file-inline" title="Solution Demonstrated (69 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>markPaid-r1.xls</a>
</div>

markPaid-r1.xls

<div>
Hi Dave, 
 
 
This works perfectly! although you probably are aware of this. Thank you for your help I really do appreciate this!
</div>

<div>
<div class="content wysiwyg-content">
Hello, 
 
I have a spreadsheet with data in columns A:AD and I would like for a macro to lock and highlight this range bright pink once &quot;Paid&quot; is selected from the dropdown list in column AD. 
 
Does anyone know how I would go about this? 
I know it is simple but I haven't found any solutions on google yet.
</div>
</div>

Hello,

I have a spreadsheet with data in columns A:AD and I would like for a macro to lock and highlight this range bright pink once "Paid" is selected from the dropdown list in column AD.

Does anyone know how I would go about this?
I know it is simple but I haven't found any solutions on google yet.

Macro to lock and highlight row based on cell value

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.