Combining two macros to run together.

[jsharp]

I've got two macros i'm running and I want them to run as one. The first one creates worksheets based off of values in my "stop data" sheet. The second one fills a shape on each of those created sheets with a static map. I want them to run at the same time if possible. The second one I have to go to each sheet individually to run. If it could run right after the sheet is created that would be great.

Sub CreateSheets()
Dim LR As Long, i As Long
Application.ScreenUpdating = False
With Sheets("Stop Data")
LR = .Range("B" & Rows.Count).End(xlUp).Row
For i = 2 To LR
Sheets("Template").Copy Before:=Sheets("Template")
ActiveSheet.Name = .Range("B" & i).Value


Next i
End With
Application.ScreenUpdating = True
End Sub

Sub MapInsert()
With ActiveSheet.Shapes("Map").Fill
.Visible = msoTrue
.UserPicture (Range("M1"))
.TextureTile = msoFalse
End With

 

[6StringJazzer]

You can still use two separate subs, in fact, I recommend you do. But this will cause everything to run in one go. Changes to your code in red.

Sub CreateSheets()

   Dim LR As Long, i As Long
   
   Application.ScreenUpdating = False
   
   With Sheets("Stop Data")
      LR = .Range("B" & Rows.Count).End(xlUp).Row
      For i = 2 To LR
         Sheets("Template").Copy Before:=Sheets("Template")
         ActiveSheet.Name = .Range("B" & i).Value
         MapInsert ActiveSheet
      Next i
   End With
   
   Application.ScreenUpdating = True
   
End Sub

Sub MapInsert(WS As Worksheet)
   With WS.Shapes("Map").Fill
      .Visible = msoTrue
      .UserPicture (Range("M1"))
      .TextureTile = msoFalse
   End With
End Sub

 

[jsharp]

That worked. Thank you so much.