Trying to code up a Macro but my string is very long - How do I do a continue on the next line? I googled it but the solution is not working
I am trying to string many worksheets & the -, at the end of the line and the & at the next line is not working thanks for your help
MACRO CODE below:
Sub WaxOFF()
'
' WaxOFF Macro
' Macro to Turn rename all = signs to /=
'
'
Application.Goto Reference:="WaxOFF"
Dim ws As Worksheet
For Each ws In Worksheets(Array("M-Mix-Dbls-1", "M-Mix-Dbls-2", "M-Mix-Dbls-3-Manual-WRK-NEEDED" _ ,
& "M-Mix-Dbls-SORT","M-Mix-Dbls-Final-Pass","M-Mix-Dbls-FINAL-PREP","M-Mix-Dbls-FINAL-DONE" _ ,
& "Mixed-DBLS-M-Labels","M-Mix-Dbls-FINAL","W-Mix-Dbls-1","W-Mix-Dbls-2","W-Mix-Dbls-3-Manual-WRK-NEEDED" _ ,
& "W-Mix-Dbls-SORT","W-Mix-Dbls-Final-Pass","W-Mix-Dbls-FINAL-PREP","W-Mix-Dbls-FINAL-DONE","Mixed-DBLS-W-Labels" _ ,
& "Team-Event-Labels","M-Singles-Labelz","W-Singles-Labelz","Mens-DBLs-Labelz","W-DBLs-Labelz","MSSP-Labelz-GM1" _ ,
& "MSSP-Labelz-GM2","MSSP-Labelz-GM3","WSSP-Labelz-GM1","WSSP-Labelz-GM2","WSSP-Labelz-GM3" ))
ws.Cells.Replace What:="=", Replacement:="/=", LookAt:=xlPart
Next ws
End Sub
I am trying to string many worksheets & the -, at the end of the line and the & at the next line is not working thanks for your help
MACRO CODE below:
Sub WaxOFF()
'
' WaxOFF Macro
' Macro to Turn rename all = signs to /=
'
'
Application.Goto Reference:="WaxOFF"
Dim ws As Worksheet
For Each ws In Worksheets(Array("M-Mix-Dbls-1", "M-Mix-Dbls-2", "M-Mix-Dbls-3-Manual-WRK-NEEDED" _ ,
& "M-Mix-Dbls-SORT","M-Mix-Dbls-Final-Pass","M-Mix-Dbls-FINAL-PREP","M-Mix-Dbls-FINAL-DONE" _ ,
& "Mixed-DBLS-M-Labels","M-Mix-Dbls-FINAL","W-Mix-Dbls-1","W-Mix-Dbls-2","W-Mix-Dbls-3-Manual-WRK-NEEDED" _ ,
& "W-Mix-Dbls-SORT","W-Mix-Dbls-Final-Pass","W-Mix-Dbls-FINAL-PREP","W-Mix-Dbls-FINAL-DONE","Mixed-DBLS-W-Labels" _ ,
& "Team-Event-Labels","M-Singles-Labelz","W-Singles-Labelz","Mens-DBLs-Labelz","W-DBLs-Labelz","MSSP-Labelz-GM1" _ ,
& "MSSP-Labelz-GM2","MSSP-Labelz-GM3","WSSP-Labelz-GM1","WSSP-Labelz-GM2","WSSP-Labelz-GM3" ))
ws.Cells.Replace What:="=", Replacement:="/=", LookAt:=xlPart
Next ws
End Sub