Kod:
Private Sub Button_Click()
Dim LR As Long
Dim Tgtrw As Long
' Insert Sheet Copy and return to Active Sheet code here
LR =Range("A" & Rows.Count).end(xlUp).Row
For Tgtrw = 3 to LR
GTWebAccess Tgtrw
Next Tgtrw
' Insert Code to delete copy sheet and save workbook here
End Sub