Trying to copy and paste select text based on a list box value

I am trying to write a macro (CustSpecificESDText) to copy specific text from one worksheet (Cust Specific Text) to a different worksheet (ESD Safety Log) based on a user selection from a list box on a third worksheet (Project Info). I will modify the code to add different ranges to copy based on the selection from the list box using If Then Else. But first I want to get the syntax correct. I keep getting a syntax error on the If statement


Sub CustSpecificESDText()
'
' CustSpecificESDText Macro
'
'
Dim ws As Worksheet
If ws.("Project Info").ListBox1.Value = "Sprint" Then
Sheets("Cust Specific Text").Select
Range("A2:E2").Select
Selection.Copy
Sheets("ESD Safety Log").Select
Range("A5:E5").Select
ActiveSheet.Paste
End If
End Sub

Here is the workbook. Neither of the suggestions worked. Thank you for your assistance.

Of course it didn't work. You're not using a list box.

There are much more stable ways to do this but I already put time in so here is a quickie:

Please Login or Register  to view this content.

Thank you for your patients and support. I just got over Cancer teatments and still have some Chemo brain so my appologies if I had a hard time following it. You have helped a great deal.

I now see why you said it wasn't a list box. When I created the reduced file I saved it as an .xlsx, realized I didn't save it as an .xlsm and saved it in that format. Unfortunately I used the .xlsx file to do that. I will play with the code now to use a listbox. Thank you again for your support.