Range selecteren

[harolda1980]

Ik krijg de volgende fout melding, en zie even niet waar het fout gaat nu opeens!
Ik kan dus mijn module om jaren weg te schrijven niet af maken!

Sub Overgaang()

Dim MySheet
Dim R As Long
Dim K As Long
Dim R1 As Long
Dim K1 As Long
Dim SH As String

R = 44
K = 2
R1 = 64
K1 = 68
For Each MySheet In Worksheets
If MySheet.Name = "T" Or MySheet.Name = "I" Or MySheet.Name = "S" Then
Else
        Set Rng = MySheet.Range(MySheet.Cells(R, K), MySheet.Cells(R1, K1)).Select
End If
Next MySheet
End Sub

 

[OctaFish]

Zo doet-ie het...

        Set rng = MySheet.Range(MySheet.Cells(R, K), MySheet.Cells(R1, K1))
        rng.Select

 

[E v R]

Naast Octafish z'n oplossing; waarom selecteren?