ListBox selection referes to wrong worksheet

[SimonCampbell]

I have a USERForm with a LISTBOX displaying data from a WORKSHEET called "ANALYSISDB", The UserForm is initiated from a WORKSHEET called "PLOT", Through a Macro. On the UserForm there are command buttons to Save, Search, Update and Delete data from the ANALYSISDB sheet. All commands work correctly, APART FROM the delete command. The Data is selected by a Double Click on a row in the ListBox. When The DELETE command is run, a row from the PLOT sheet and not the ANALYSIDB sheet is deleted, it does however selected the correct row number, but from the wrong sheet. How do I ensure the delete command works on the ANALYSISDB sheet, do I need code to force the entire UserForm to refer to the ANALYSISDB sheet, and what is this code. The Code for the Delete command button is below. My VBA skills are limited so any help would be appreciated.

Private Sub cmd_Delete_Click()

Dim x As Long
Dim Y As Long
x = ThisWorkbook.Worksheets("ANALYSISDB").Range("A" & Rows.Count).End(xlUp).Row
For Y = 2 To x
If ThisWorkbook.Worksheets("ANALYSISDB").Cells(Y, 1).Value = txt_Search.Text Then
Rows(Y).Delete
End If

Next Y

'Clear Data Entry Form
Me.txt_Search.Value = "-"
Me.txt_Name.Value = "-"
Me.cmb_Phase.Value = "0"
Me.txt_Crest.Value = "0"
Me.txt_GOC.Value = "0"
Me.txt_HWC.Value = "0"
Me.txt_OP.Value = "0"
Me.txt_GasGrad.Value = "0"
Me.txt_OilGrad.Value = "0"
Me.txt_WaterGrad.Value = "0"
Me.txt_RefWell.Value = "-"
Me.chbDisplay.Value = False
Me.chbLabel.Value = False



MsgBox "Data has been deleted", vbInformation

txt_Name.SetFocus
End Sub

[AliGW]

Administrative Note:

We would very much like to help you with your query, however it has been brought to our attention that the same query has been posted on one or more other forums and you have not provided the required cross-post link(s) here.

Please see Forum Rule #3 about cross-posting and adjust accordingly. Read this to understand why we (and other sites like us) consider this to be important.

(Note: this requirement is not optional. No help to be offered until the link is provided.)

Administrative Note:

Welcome to the forum.

You need to include code tags around your code.

Please take a moment to add the tags. Posting code between [code]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/code] tags makes your code much easier to read and copy for testing, and it also maintains VBA formatting.

Please see Forum Rule #2 about code tags and adjust accordingly. Click on Edit to open your post, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(Note: this change is not optional. No help to be offered until this moderation request has been fulfilled.)