save and print tabs

[MOORED]

Hi

I have the following code that saves and prints just the visible tabs in a workbook, but I want to change the code so that it only saves and prints the first two tabs only could do with a little help if possible


Sub SaveShts()

Dim Ws As Worksheet

Application.ScreenUpdating = False

For Each Ws In Worksheets
If Ws.Visible Then
Ws.Copy
ActiveWorkbook.SaveAs "C:\Users\********\Desktop" & Ws.Range("K1").Text, 51
ActiveWorkbook.Close
End If
Next Ws

End Sub

 

[NMa91]

Try this:

Sub SaveShts()

 Dim Ws As Worksheet, i As Integer

 Application.ScreenUpdating = False
i = 0
 For Each Ws In Worksheets
 If Ws.Visible Then
 i = i + 1
 If i > 2 Then Exit For
Ws.Copy
 ActiveWorkbook.SaveAs "C:\Users\********\Desktop" & Ws.Range("K1").Text, 51
 ActiveWorkbook.Close
 
 End If
 Next Ws

 End Sub

 

[MOORED]

Thank you sooooo much this works a treat

Really appreciate your help