Issue in VBA

Question

Hi,
I got issue

due to last line below. How to correct it?
Str0 = Trim(Worksheets("B").Cells(Ser0, 4).Value) & "_D": Worksheets("B").Cells(Ser0, 27).Value = Str0

            sAddress = "c:\1\" & Str0 & ".xlsx": W0 = Str0 & ".xlsx": F2 = Str0  
            Workbooks.Add.SaveAs Filename:=sAddress: Set rCell = Worksheets("B").Cells(Ser0, 27)  
              
            'sDisplay = "F2.xlsx"  

            ActiveSheet.Hyperlinks.Add Anchor:=rCell, _  
                Address:=sAddress  
                'TextToDisplay:=sDisplay  
              
            Dim ws1 As Worksheet  
            Set ws1 = ActiveWorkbook.Worksheets.Add(Type:=xlWorksheet)  
            With ws1  
                If Not WorksheetExists(Str0) Then  
                    .Name = Str0  
                End If  
            End With  
              
            Windows(Curr_Bk).Activate  
            'Worksheets(Str0).Activate  
            Fill_Border "A1:A1": Worksheets(Str0).Cells(1, 1).Value = "Back"  

Answer 1

Hi @Peter_1985 ,

VBA is currently not supported in the Q&A forums, the supported products are listed over here https://learn.microsoft.com/en-us/answers/products (more to be added later on).

You can ask the experts in the dedicated VBA forum over here:
https://social.msdn.microsoft.com/Forums/en-US/home?forum=isvvba

----------

(If the reply was helpful please don't forget to upvote or accept as answer, thank you)

Best regards,
Leon