Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng1 As Range '
Set Rng1 = Range("A1:A28,B1:C2,B4:E5,C1:F4,B4:D28,E16:F28,G1:J28,K1:XFD1048576")
If Intersect(Target, Rng1) Is Nothing Then
sw = 1
Else
Range("B3").Select
End If
End Sub