If ActiveSheet.ProtectContents = False Then Simply cut and insert.ĭim i As Integer, j As Integer, e As Integerĭim l As Integer, michael As Integer, n As Integerĭim i1 As Integer, i2 As Integer, i3 As Integerĭim i4 As Integer, i5 As Integer, i6 As Integerįor i actually = 65 To 66: For j = 65 To 66: For t = 65 To 66įor d = 65 To 66: For michael = 65 To 66: For i1 = 65 To 66įor i actually2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66įor we5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126ĪctiveSheet.Unprotect Chr(i actually) amp Chr(j) amp Chr(k) amp Ĭhr(m) amp Chr(meters) amp Chr(i actually1) amp Chr(i actually2) amp Chr(we3) amp Ĭhr(we4) amp Chr(we5) amp Chr(i actually6) amp Chr(in) You should not really have got to modify anything, sheet name etc. Insert the program code below in the general declarations web page you have opened up.
0 Comments
Leave a Reply. |