Good Morning Everyone,
One day, One day......I will get the hange of this.....I creep and crawl. Just when I think I've got it....I don't. Some of this stuff I can do on my own....the rest I'm LOST!!!
At any rate, below is some code I've been tinkering with. What I want to do is when the value in column "M" (which is a drop down list) changes to "No contact w/patient" I want the entire row to be cut and pasted to a worksheet "6 Mth Eval". I've tried many variations of the code but this is the lastest. I don't get an error but nothing happens either.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim wshSource As Worksheet, wshTarget As Worksheet
Dim rngSource As Range, rngTarget As Range
Set wshSource = Worksheets("Asthma")
Set rngSource = wshSource.Range("M65536")
Set wshTarget = Worksheets("6 Mth Eval")
Set rngTarget = wshTarget.Range("A65536").End(xlUp).Offset(1, 0).Resize(1, 15)
' If Not Intersect(Target, rngSource) Is Nothing And rngSource = "No Contact w/Patient" Then
If rngSource = "No Contact w/Patient" Then
Sheets("6 Mth Eval").Visible = True
Sheets("6 Mth Eval").Select
Sheets("6 Mth Eval").Visible = False
I'm hoping one of you VBA guru's in here will show me the error of my ways.
Thanks in advance.