Hi,
How do i change from:
Set ws = ActiveSheet
to
Set ws = Sheets("Klanten")
I want to select a sheet, not the active one.
Thanks in advance.
P.
Sub test() Dim ws As Worksheet Dim r As Long, laatste As Long Dim blad As String, rij As Long Dim wb As Excel.Workbook Application.ScreenUpdating = False 'Set ws = ActiveSheet Set ws = Sheets("Klanten") 'Set ws = wb.Worksheets(6) laatste = Range("A65536").End(xlUp).Row For r = 2 To laatste blad = Cells(r, 1)