How to Make a Tartan Heart Image in Excel

Open a new Excel worksheet by opening the Excel application from the dock or Applications folder.

1. Set Preferences: In General - Set Use R1C1 reference style to checked or On.
2. Set column 1 to Format Column Width .5" and Format Row Height .25"
3. Select Rows 2:200 and set Format Row Height to .06" (but see Tips).
4. Select Columns 2:512 and set Format Column Width to .03" (but see Tips).
5. Read through these steps and tips entirely before actually setting to work -- there's a time-consuming route (given first) and an easier way (via making a copy of the given macro) that will save a lot of time and effort! But to create your own tartan's pattern, you must be familiar with the concepts conveyed in the first part, starting with this next step:

Obtain the actual tartan and, probably with the aid of a magnifying glass, write down the color and number of the threads across in columns and do the same down in rows. Be exact as you possibly can be, it's important in achieving the exact effect of really replicating the tartan, precisely. Here's a picture of a tartan closeup which had its threads counted.

Begin in column 2. Select the column. Make the color match the tartan's beginning thread color. Use the Color Wheel. Format Cells Fill the column (or to a designated row# stopping point) with the color.

Then do row 2, selecting the row, and make the color match as closely as possible to the tartan's actual thread color. Use the Color Wheel. Format Cells Fill the row (or to a designated column# stopping point) with the color.

Then do column 3, then row 3, then column 4, then row 4, etc., etc. continuing over and under this way until you've filled the screen with the full image of the tartan! Be patient with yourself and do the job right, although it may take you hours, or even days to finish. Working with the macros, however, takes much less time in the end.

Use the Grab application or do Copy Picture by using the Shift Key with Edit Copy and then do Paste Picture to a new worksheet by using the Shift Key again. Then, whether you used the Grab app, or Paste Picture, do Command+v, copy.

Done! Well worth it, eh?

Here is the macro code to create the tartan. You use Advanced Editing to copy All the code to Word and do a Replace All of "#* " with nothing, and the code will result, which you can then paste into over a Visual Basic dummy macro you recorded that was meaningless. Read on first, however.

1. Note: In Sub Macro2(), at the end, there are some Directory path names in code lines which need to be changed to match your computer, please. You can find out what these are by recording a macro to save a file into the folder where you plan to save the tartan work and tartan macro.
2. It is suggested that you make a text copy of any modifications you make to the macro and store them in a Word file to the same folder, for example if you modify the code to make a different tartan than the Anderson tartan.
3. Remember, you can always broaden the columns and row heights to get a better look at what's what in terms of thread count relative to the vertical looping down the rows in Sub Macro3().

OK. Before you can access the Visual Basic Editor, you'll need to go to Excel Preferences and set the Ribbon to checked for Developer. Then Developer will appear on your Ribbon and when you click on it, you'll see the Record icon button.

When you record the dummy macro, e.g. Macro1 say, before its end, perhaps overwriting the dummy recorded code, type in Macro2. That will call this Macro2 below, which you've copied in and pasted below Macro1. You therefore can RUN either Macro2 or Macro1 and accomplish the same effect -- completion of the tartan! :D

1. Sub Macro2()
2. ' Macro2 Macro
3. 'Anderson Tartan Columns - Left to right
4. Application.ScreenUpdating = True
5. Workbooks.Add
6. Range("B:SQ").Select
7. Selection.ColumnWidth = 1.5
8. Range("B1:O376").Select
9. Range("B1:O376").Interior.Color = RGB(100, 149, 237)
10. Range("P1:U376").Select
11. Range("P1:U376").Interior.Color = RGB(0, 0, 0)
12. Range("V1:AA376").Select
13. Range("V1:AA376").Interior.Color = RGB(190, 190, 190)
14. Range("AB1:AE376").Select
15. Range("AB1:AE376").Interior.Color = RGB(0, 0, 0)
16. Range("AF1:AI376").Select
17. Range("AF1:AI376").Interior.Color = RGB(255, 255, 0)
18. Range("AJ1:AM376").Select
19. Range("AJ1:AM376").Interior.Color = RGB(0, 0, 0)
20. Range("AN1:AQ376").Select
21. Range("AN1:AQ376").Interior.Color = RGB(255, 255, 0)
22. Range("AR1:AW376").Select
23. Range("AR1:AW376").Interior.Color = RGB(0, 0, 0)
24. Range("AX1:BA376").Select
25. Range("AX1:BA376").Interior.Color = RGB(255, 0, 0)
26. Range("BB1:BG376").Select
27. Range("BB1:BG376").Interior.Color = RGB(0, 0, 255)
28. Range("BH1:BI376").Select
29. Range("BH1:BI376").Interior.Color = RGB(255, 0, 0)
30. Range("BJ1:BQ376").Select
31. Range("BJ1:BQ376").Interior.Color = RGB(46, 139, 87)
32. Range("BR1:BT376").Select
33. Range("BR1:BT376").Interior.Color = RGB(255, 0, 0)
34. Range("BU1:CB376").Select
35. Range("BU1:CB376").Interior.Color = RGB(46, 139, 87)
36. Range("CC1:CF376").Select
37. Range("CC1:CF376").Interior.Color = RGB(255, 0, 0)
38. Range("CG1:CN376").Select
39. Range("CG1:CN376").Interior.Color = RGB(46, 139, 87)
40. Range("CO1:CR376").Select
41. Range("CO1:CR376").Interior.Color = RGB(255, 0, 0)
42. Range("CS1:CZ376").Select
43. Range("CS1:CZ376").Interior.Color = RGB(46, 139, 87)
44. Range("DA1:DB376").Select
45. Range("DA1:DB376").Interior.Color = RGB(255, 0, 0)
46. Range("DC1:DH376").Select
47. Range("DC1:DH376").Interior.Color = RGB(0, 0, 255)
48. Range("DI1:DL376").Select
49. Range("DI1:DL376").Interior.Color = RGB(255, 0, 0)
50. Range("DM1:DP376").Select
51. Range("DM1:DP376").Interior.Color = RGB(0, 0, 0)
52. Range("DQ1:DT376").Select
53. Range("DQ1:DT376").Interior.Color = RGB(255, 255, 0)
54. Range("DU1:DX376").Select
55. Range("DU1:DX376").Interior.Color = RGB(0, 0, 0)
56. Range("DY1:EB376").Select
57. Range("DY1:EB376").Interior.Color = RGB(255, 255, 0)
58. Range("EC1:EF376").Select
59. Range("EC1:EF376").Interior.Color = RGB(0, 0, 0)
60. Range("EG1:EL376").Select
61. Range("EG1:EL376").Interior.Color = RGB(190, 190, 190)
62. Range("EM1:ER376").Select
63. Range("EM1:ER376").Interior.Color = RGB(0, 0, 0)
64. Range("ES1:FF376").Select
65. Range("ES1:FF376").Interior.Color = RGB(100, 149, 237)
66. Range("FG1:FG376").Select
67. Range("FG1:FG376").Interior.Color = RGB(255, 0, 0)
68. Range("FH1:FK376").Select
69. Range("FH1:FK376").Interior.Color = RGB(0, 0, 0)
70. Range("FL1:FL376").Select
71. Range("FL1:FL376").Interior.Color = RGB(255, 0, 0)
72. Range("FM1:FR376").Select
73. Range("FM1:FR376").Interior.Color = RGB(100, 149, 237)
74. Range("FS1:FX376").Select
75. Range("FS1:FX376").Interior.Color = RGB(255, 0, 0)
76. Range("FY1:GD376").Select
77. Range("FY1:GD376").Interior.Color = RGB(100, 149, 237)
78. Range("GE1:GE376").Select
79. Range("GE1:GE376").Interior.Color = RGB(255, 0, 0)
80. Range("GF1:GI376").Select
81. Range("GF1:GI376").Interior.Color = RGB(0, 0, 0)
82. Range("GJ1:GJ376").Select
83. Range("GJ1:GJ376").Interior.Color = RGB(255, 0, 0)
84. Range("GK1:GX376").Select
85. Range("GK1:GX376").Interior.Color = RGB(100, 149, 237)
86. Range("GY1:HB376").Select
87. Range("GY1:HB376").Interior.Color = RGB(0, 0, 0)
88. Range("HC1:HH376").Select
89. Range("HC1:HH376").Interior.Color = RGB(190, 190, 190)
90. Range("HI1:HL376").Select
91. Range("HI1:HL376").Interior.Color = RGB(0, 0, 0)
92. Range("HM1:HP376").Select
93. Range("HM1:HP376").Interior.Color = RGB(255, 255, 0)
94. Range("HQ1:HT376").Select
95. Range("HQ1:HT376").Interior.Color = RGB(0, 0, 0)
96. Range("HU1:HX376").Select
97. Range("HU1:HX376").Interior.Color = RGB(255, 255, 0)
98. Range("HY1:ID376").Select
99. Range("HY1:ID376").Interior.Color = RGB(0, 0, 0)
100. Range("IE1:IH376").Select
101. Range("IE1:IH376").Interior.Color = RGB(255, 0, 0)
102. Range("II1:IN376").Select
103. Range("II1:IN376").Interior.Color = RGB(0, 0, 255)
104. Range("IO1:IP376").Select
105. Range("IO1:IP376").Interior.Color = RGB(255, 0, 0)
106. Range("IQ1:IV376").Select
107. Range("IQ1:IV376").Interior.Color = RGB(46, 139, 87)
108. Range("IW1:JJ376").Select
109. Range("IW1:JJ376").Interior.Color = RGB(100, 149, 237)
110. Range("JK1:JP376").Select
111. Range("JK1:JP376").Interior.Color = RGB(0, 0, 0)
112. Range("JQ1:JV376").Select
113. Range("JQ1:JV376").Interior.Color = RGB(190, 190, 190)
114. Range("JW1:JZ376").Select
115. Range("JW1:JZ376").Interior.Color = RGB(0, 0, 0)
116. Range("KA1:KD376").Select
117. Range("KA1:KD376").Interior.Color = RGB(255, 255, 0)
118. Range("KE1:KH376").Select
119. Range("KE1:KH376").Interior.Color = RGB(0, 0, 0)
120. Range("KI1:KL376").Select
121. Range("KI1:KL376").Interior.Color = RGB(255, 255, 0)
122. Range("KM1:KR376").Select
123. Range("KM1:KR376").Interior.Color = RGB(0, 0, 0)
124. Range("KS1:KV376").Select
125. Range("KS1:KV376").Interior.Color = RGB(255, 0, 0)
126. Range("KW1:LB376").Select
127. Range("KW1:LB376").Interior.Color = RGB(0, 0, 255)
128. Range("LC1:LD376").Select
129. Range("LC1:LD376").Interior.Color = RGB(255, 0, 0)
130. Range("LE1:LL376").Select
131. Range("LE1:LL376").Interior.Color = RGB(46, 139, 87)
132. Range("LM1:LO376").Select
133. Range("LM1:LO376").Interior.Color = RGB(255, 0, 0)
134. Range("LP1:LW376").Select
135. Range("LP1:LW376").Interior.Color = RGB(46, 139, 87)
136. Range("LX1:MA376").Select
137. Range("LX1:MA376").Interior.Color = RGB(255, 0, 0)
138. Range("MB1:MI376").Select
139. Range("MB1:MI376").Interior.Color = RGB(46, 139, 87)
140. Range("MJ1:MM376").Select
141. Range("MJ1:MM376").Interior.Color = RGB(255, 0, 0)
142. Range("MN1:MU376").Select
143. Range("MN1:MU376").Interior.Color = RGB(46, 139, 87)
144. Range("MV1:MW376").Select
145. Range("MV1:MW376").Interior.Color = RGB(255, 0, 0)
146. Range("MX1:NC376").Select
147. Range("MX1:NC376").Interior.Color = RGB(0, 0, 255)
148. Range("ND1:NG376").Select
149. Range("ND1:NG376").Interior.Color = RGB(255, 0, 0)
150. Range("NH1:NK376").Select
151. Range("NH1:NK376").Interior.Color = RGB(0, 0, 0)
152. Range("NL1:NO376").Select
153. Range("NL1:NO376").Interior.Color = RGB(255, 255, 0)
154. Range("NP1:NS376").Select
155. Range("NP1:NS376").Interior.Color = RGB(0, 0, 0)
156. Range("NT1:NW376").Select
157. Range("NT1:NW376").Interior.Color = RGB(255, 255, 0)
158. Range("NX1:OA376").Select
159. Range("NX1:OA376").Interior.Color = RGB(0, 0, 0)
160. Range("OB1:OG376").Select
161. Range("OB1:OG376").Interior.Color = RGB(190, 190, 190)
162. Range("OH1:OM376").Select
163. Range("OH1:OM376").Interior.Color = RGB(0, 0, 0)
164. Range("ON1:PA376").Select
165. Range("ON1:PA376").Interior.Color = RGB(100, 149, 237)
166. Range("PB1:PB376").Select
167. Range("PB1:PB376").Interior.Color = RGB(255, 0, 0)
168. Range("PC1:PF376").Select
169. Range("PC1:PF376").Interior.Color = RGB(0, 0, 0)
170. Range("PG1:PG376").Select
171. Range("PG1:PG376").Interior.Color = RGB(255, 0, 0)
172. Range("PH1:PM376").Select
173. Range("PH1:PM376").Interior.Color = RGB(100, 149, 237)
174. Range("PN1:PS376").Select
175. Range("PN1:PS376").Interior.Color = RGB(255, 0, 0)
176. Range("PT1:PY376").Select
177. Range("PT1:PY376").Interior.Color = RGB(100, 149, 237)
178. Range("PZ1:PZ376").Select
179. Range("PZ1:PZ376").Interior.Color = RGB(255, 0, 0)
180. Range("QA1:QD376").Select
181. Range("QA1:QD376").Interior.Color = RGB(0, 0, 0)
182. Range("QE1:QE376").Select
183. Range("QE1:QE376").Interior.Color = RGB(255, 0, 0)
184. Range("QF1:QS376").Select
185. Range("QF1:QS376").Interior.Color = RGB(100, 149, 237)
186. Range("QT1:QW376").Select
187. Range("QT1:QW376").Interior.Color = RGB(0, 0, 0)
188. Range("QX1:RC376").Select
189. Range("QX1:RC376").Interior.Color = RGB(190, 190, 190)
190. Range("RD1:RG376").Select
191. Range("RD1:RG376").Interior.Color = RGB(0, 0, 0)
192. Range("RH1:RK376").Select
193. Range("RH1:RK376").Interior.Color = RGB(255, 255, 0)
194. Range("RL1:RO376").Select
195. Range("RL1:RO376").Interior.Color = RGB(0, 0, 0)
196. Range("RP1:RS376").Select
197. Range("RP1:RS376").Interior.Color = RGB(255, 255, 0)
198. Range("RT1:RY376").Select
199. Range("RT1:RY376").Interior.Color = RGB(0, 0, 0)
200. Range("RZ1:SC376").Select
201. Range("RZ1:SC376").Interior.Color = RGB(255, 0, 0)
202. Range("SD1:SI376").Select
203. Range("SD1:SI376").Interior.Color = RGB(0, 0, 255)
204. Range("SJ1:SK376").Select
205. Range("SJ1:SK376").Interior.Color = RGB(255, 0, 0)
206. Range("SL1:SQ376").Select
207. Range("SL1:SQ376").Interior.Color = RGB(46, 139, 87)
208. ChDir _
209. "Macintosh HD:Users:chrisgarthwaite:Documents:Excel ƒ: Hubs and SITES:wikiHow's:"
210. Range("SL1:SQ376").Select
211. ActiveWorkbook.SaveAs Filename:= _
212. "Macintosh HD:Users:chrisgarthwaite:Documents:Excel ƒ:Tartan Work: Anderson Tartan Development.xlsx" _
213. , FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
214. Macro1_Vertical_Row_Sampler
215. End Sub
217. Sub Macro1_Vertical_Row_Sampler()
218. '
219. ' Macro1_Vertical_Row_Sampler Macro
220. ' Vertical Row Sampler
221. ' Top to bottom
222. Range("A2").Select
223. ActiveWorkbook.Names.Add Name:="Tartan_Vertical_StarterCell", RefersToR1C1 _
224. :="=Sheet1!R2C1"
225. Range("A1:A210").Select
226. Selection.RowHeight = 18
227. Range("A2:A10").Select
228. Range("A2").Interior.Color = RGB(0, 0, 0)
229. Range("A11:A16").Select
230. Range("A11").Interior.Color = RGB(255, 0, 0)
231. Range("A17:A23").Select
232. Range("A17").Interior.Color = RGB(0, 0, 0)
233. Range("A24:A29").Select
234. Range("A24").Interior.Color = RGB(255, 0, 0)
235. Range("A30:A36").Select
236. Range("A30").Interior.Color = RGB(0, 0, 0)
237. Range("A37:A38").Select
238. Range("A37").Interior.Color = RGB(255, 0, 0)
239. Range("A39:A42").Select
240. Range("A39").Interior.Color = RGB(0, 0, 255)
241. Range("A43:A44").Select
242. Range("A43").Interior.Color = RGB(255, 0, 0)
243. Range("A45:A48").Select
244. Range("A45").Interior.Color = RGB(0, 0, 0)
245. Range("A49").Select
246. Range("A49").Interior.Color = RGB(255, 255, 0)
247. Range("A50").Select
248. Range("A50").Interior.Color = RGB(0, 0, 0)
249. Range("A51").Select
250. Range("A51").Interior.Color = RGB(255, 255, 0)
251. Range("A52:A55").Select
252. Range("A52").Interior.Color = RGB(0, 0, 0)
253. Range("A56:A59").Select
254. Range("A56").Interior.Color = RGB(224, 255, 255)
255. Range("A60:A65").Select
256. Range("A60").Interior.Color = RGB(0, 0, 0)
257. Range("A66:A85").Select
258. Range("A66").Interior.Color = RGB(0, 255, 255)
259. Range("A86:A87").Select
260. Range("A86").Interior.Color = RGB(255, 0, 0)
261. Range("A88:A91").Select
262. Range("A88").Interior.Color = RGB(0, 0, 0)
263. Range("A92:A93").Select
264. Range("A92").Interior.Color = RGB(255, 0, 0)
265. Range("A94:A101").Select
266. Range("A94").Interior.Color = RGB(0, 255, 255)
267. Range("A102:A107").Select
268. Range("A102").Interior.Color = RGB(255, 0, 0)
269. Range("A108:A115").Select
270. Range("A108").Interior.Color = RGB(0, 255, 255)
271. Range("A116:A117").Select
272. Range("A116").Interior.Color = RGB(255, 0, 0)
273. Range("A118:A121").Select
274. Range("A118").Interior.Color = RGB(0, 0, 0)
275. Range("A122:A123").Select
276. Range("A122").Interior.Color = RGB(255, 0, 0)
277. Range("A124:A143").Select
278. Range("A124").Interior.Color = RGB(0, 255, 255)
279. Range("A144:A149").Select
280. Range("A144").Interior.Color = RGB(0, 0, 0)
281. Range("A150:A153").Select
282. Range("A150").Interior.Color = RGB(224, 255, 255)
283. Range("A154:A157").Select
284. Range("A154").Interior.Color = RGB(0, 0, 0)
285. Range("A158").Select
286. Range("A158").Interior.Color = RGB(255, 255, 0)
287. Range("A159").Select
288. Range("A159").Interior.Color = RGB(0, 0, 0)
289. Range("A160").Select
290. Range("A160").Interior.Color = RGB(255, 255, 0)
291. Range("A161:A164").Select
292. Range("A161").Interior.Color = RGB(0, 0, 0)
293. Range("A165:A166").Select
294. Range("A165").Interior.Color = RGB(255, 0, 0)
295. Range("A167:A170").Select
296. Range("A167").Interior.Color = RGB(0, 0, 255)
297. Range("A171:A172").Select
298. Range("A171").Interior.Color = RGB(255, 0, 0)
299. Range("A173:A179").Select
300. Range("A173").Interior.Color = RGB(0, 0, 0)
301. Range("A180:A185").Select
302. Range("A180").Interior.Color = RGB(255, 0, 0)
303. Range("A186:A192").Select
304. Range("A186").Interior.Color = RGB(0, 0, 0)
305. Range("A193:A198").Select
306. Range("A193").Interior.Color = RGB(255, 0, 0)
307. Range("A199:A205").Select
308. Range("A199").Interior.Color = RGB(0, 0, 0)
309. Range("A206").Select
310. ActiveCell.FormulaR1C1 = "End"
311. ActiveWorkbook.Save
312. Application.ScreenUpdating = False
313. Macro3
314. End Sub
315. Sub Macro3()
316. ' Macro3 Macro
317. Windows(" Anderson Tartan Development.xlsx").Activate
318. Application.Goto Reference:="Tartan_Vertical_StarterCell"
319. 'Make the first 9 rows black
320. Macro6
321. For X03 = 1 To 7
322. Macro8
323. Next
324. 10 Application.CutCopyMode = False
325. 'Make the next 6 rows red
326. Macro7
327. For X03 = 1 To 4
328. Macro8
329. Next
330. 30 Application.CutCopyMode = False
331. 'Make the next 7 rows black
332. Macro7
333. For X03 = 1 To 5
334. Macro8
335. Next
336. 50 Application.CutCopyMode = False
337. 'Make the next 6 rows red
338. Macro6
339. For X03 = 1 To 4
340. Macro8
341. Next
342. 70 Application.CutCopyMode = False
343. 'Make the next 7 rows black
344. Macro6
345. For X03 = 1 To 5
346. Macro8
347. Next
348. 90 Application.CutCopyMode = False
349. 'Make the next 2 rows red
350. Macro6
351. 100 Application.CutCopyMode = False
352. 'Make the next 4 rows blue-purple�
353. Macro6
354. For X03 = 1 To 2
355. Macro8
356. Next
357. 130 Application.CutCopyMode = False
358. 'Make the next 2 rows red
359. Macro6
360. 140 Application.CutCopyMode = False
361. 'Make the next 4 rows black
362. Macro6
363. For X03 = 1 To 2
364. Macro8
365. Next
366. 170 Application.CutCopyMode = False
367. 'Make the next SINGLE ROW yellow
368. Selection.Copy
369. ActiveCell.Offset(0, 1).Select
370. ActiveSheet.Paste
371. 180 For X01 = 1 To 255
372. ActiveCell.Offset(0, 2).Select
373. ActiveSheet.Paste
374. Next
375. ActiveCell.Offset(1, -511).Select
376. 190 Application.CutCopyMode = False
377. 'Make the next SINGLE ROW black
378. Selection.Copy
379. ActiveCell.Offset(0, 2).Select
380. ActiveSheet.Paste
381. 200 For X01 = 1 To 255
382. ActiveCell.Offset(0, 2).Select
383. ActiveSheet.Paste
384. Next
385. ActiveCell.Offset(1, -512).Select
386. 210 Application.CutCopyMode = False
387. 'Make the next SINGLE ROW yellow
388. Selection.Copy
389. ActiveCell.Offset(0, 1).Select
390. ActiveSheet.Paste
391. 220 For X01 = 1 To 255
392. ActiveCell.Offset(0, 2).Select
393. ActiveSheet.Paste
394. Next
395. ActiveCell.Offset(1, -511).Select
396. 230 Application.CutCopyMode = False
397. 'Make the next 4 rows black
398. Macro6
399. For X03 = 1 To 2
400. Macro8
401. Next
402. 270 Application.CutCopyMode = False
403. 'Make the next 4 rows white
404. Macro7
405. For X03 = 1 To 2
406. Macro8
407. Next
408. 280 Application.CutCopyMode = False
409. 'Make the next 6 rows black
410. Macro6
411. For X03 = 1 To 4
412. Macro8
413. Next
414. 290 Application.CutCopyMode = False
415. 'Make the next 20 rows blue-green
416. Macro6
417. For X03 = 1 To 18
418. Macro8
419. Next
420. 310 Application.CutCopyMode = False
421. 'Make the next 2 rows red
422. Macro6
423. 320 Application.CutCopyMode = False
424. 'Make the next 4 rows black
425. Macro6
426. For X03 = 1 To 2
427. Macro8
428. Next
429. 350 Application.CutCopyMode = False
430. 'Make the next 2 rows red
431. Macro6
432. 360 Application.CutCopyMode = False
433. 'Make the next 8 rows blue-green
434. Macro6
435. For X03 = 1 To 6
436. Macro8
437. Next
438. 410 Application.CutCopyMode = False
439. 'Make the next 6 rows red
440. Macro6
441. For X03 = 1 To 4
442. Macro8
443. Next
444. 430 Application.CutCopyMode = False
445. Macro6
446. For X03 = 1 To 6
447. Macro8
448. Next
449. 450 Application.CutCopyMode = False
450. 'Make the next 2 rows red
451. Macro6
452. 470 Application.CutCopyMode = False
453. 'Make the next 4 rows black
454. Macro6
455. For X03 = 1 To 2
456. Macro8
457. Next
458. 490 Application.CutCopyMode = False
459. 'Make the next 2 rows red
460. Macro6
461. 500 Application.CutCopyMode = False
462. 'Make the next 20 rows blue-green
463. Macro6
464. For X03 = 1 To 18
465. Macro8
466. Next
467. 530 Application.CutCopyMode = False
468. 'Make the next 6 rows black
469. Macro6
470. For X03 = 1 To 4
471. Macro8
472. Next
473. 550 Application.CutCopyMode = False
474. 'Make the next 4 rows white
475. Macro6
476. For X03 = 1 To 2
477. Macro8
478. Next
479. 570 Application.CutCopyMode = False
480. 'Make the next 4 rows black
481. Macro6
482. For X03 = 1 To 2
483. Macro8
484. Next
485. 590 Application.CutCopyMode = False
486. 'Make the next SINGLE ROW yellow
487. Selection.Copy
488. 600 For X01 = 1 To 255
489. ActiveCell.Offset(0, 2).Select
490. ActiveSheet.Paste
491. Next
492. ActiveCell.Offset(1, -510).Select
493. 610 Application.CutCopyMode = False
494. 'Make the next SINGLE ROW black
495. Selection.Copy
496. ActiveCell.Offset(0, 1).Select
497. ActiveSheet.Paste
498. 620 For X01 = 1 To 255
499. ActiveCell.Offset(0, 2).Select
500. ActiveSheet.Paste
501. Next
502. ActiveCell.Offset(1, -511).Select
503. 630 Application.CutCopyMode = False
504. 'Make the next SINGLE ROW yellow
505. Selection.Copy
506. 640 For X01 = 1 To 255
507. ActiveCell.Offset(0, 2).Select
508. ActiveSheet.Paste
509. Next
510. ActiveCell.Offset(1, -510).Select
511. 650 Application.CutCopyMode = False
512. 'Make the next 4 rows black
513. Macro7
514. For X03 = 1 To 2
515. Macro8
516. Next
517. 670 Application.CutCopyMode = False
518. 'Make the next 2 rows red
519. Macro6
520. 690 Application.CutCopyMode = False
521. 'Make the next 4 rows blue-purple
522. Macro7
523. For X03 = 1 To 2
524. Macro8
525. Next
526. 740 Application.CutCopyMode = False
527. 'Make the next 2 rows red
528. Macro6
529. 750 Application.CutCopyMode = False
530. 'Make the next 7 rows black
531. Macro7
532. For X03 = 1 To 5
533. Macro8
534. Next
535. 780 Application.CutCopyMode = False
536. 'Make the next 6 rows red
537. Macro6
538. For X03 = 1 To 4
539. Macro8
540. Next
541. 800 Application.CutCopyMode = False
542. 'Make the next 7 rows black
543. Macro6
544. For X03 = 1 To 5
545. Macro8
546. Next
547. 820 Application.CutCopyMode = False
548. 'Make the next 6 rows red
549. Macro7
550. For X03 = 1 To 4
551. Macro8
552. Next
553. 840 Application.CutCopyMode = False
554. 'Make the next (the last) 7 rows black
555. Macro7
556. For X03 = 1 To 5
557. Macro8
558. Next
559. 870 Application.CutCopyMode = False
560. Columns("B:SQ").Select
561. Range("B178").Activate
562. Selection.ColumnWidth = 0.18
563. Rows("2:205").Select
564. Range("A205").Activate
565. Selection.RowHeight = 4
566. Macro11
567. ActiveWorkbook.SaveAs Filename:= _
568. "Macintosh HD:Users:chrisgarthwaite:Documents:Excel ƒ:Tartan Work: Anderson Tartan Development.xlsm" _
569. , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
570. End Sub
571. Sub Macro6()
572. ' Macro6 Macro
573. Selection.Copy
574. 0 For X01 = 1 To 255
575. ActiveCell.Offset(0, 2).Select
576. ActiveSheet.Paste
577. Next
578. ActiveCell.Offset(1, -510).Select
579. ActiveSheet.Paste
580. ActiveCell.Offset(0, 1).Select
581. ActiveSheet.Paste
582. For X02 = 1 To 255
583. ActiveCell.Offset(0, 2).Select
584. ActiveSheet.Paste
585. Next
586. ActiveCell.Offset(1, -511).Select
587. End Sub
588. Sub Macro7()
589. ' Macro7 Macro
590. Selection.Copy
591. ActiveCell.Offset(0, 1).Select
592. ActiveSheet.Paste
593. 20 For X01 = 1 To 255
594. ActiveCell.Offset(0, 2).Select
595. ActiveSheet.Paste
596. Next
597. ActiveCell.Offset(1, -511).Select
598. ActiveSheet.Paste
599. For X02 = 1 To 255
600. ActiveCell.Offset(0, 2).Select
601. ActiveSheet.Paste
602. Next
603. ActiveCell.Offset(1, -510).Select
604. ActiveSheet.Paste
605. End Sub
606. Sub Macro8()
607. ' Macro8 Macro
608. ActiveCell.Offset(-2, 510).Select
609. ActiveWorkbook.Names.Add Name:="RightEnd", RefersToR1C1:=ActiveCell
610. ActiveCell.Offset(2, -510).Select
611. ActiveCell.Offset(-2, 0).Select
612. ActiveWorkbook.Names.Add Name:="LeftEnd", RefersToR1C1:=ActiveCell
613. Application.Goto Reference:="LeftEnd: RightEnd"
614. Selection.Copy
615. ActiveCell.Offset(2, 0).Select
616. ActiveSheet.Paste
617. ActiveCell.Offset(1, 0).Select
618. ActiveWorkbook.Save
619. End Sub
620. Sub Macro11()
621. ' Macro11 Macro
622. Columns("A:A").Select
623. Selection.Copy
624. Columns("SR:SR").Select
625. ActiveSheet.Paste
626. Columns("SS:SS").Select
627. Application.CutCopyMode = False
628. Selection.Delete Shift:=xlToLeft
629. Range("A1").Select
630. End Sub
632. Be patient, please. The macro can take anywhere from 3.5 minutes to a half hour or more to run, depending on your processor (speed). The code could have been written to run quicker but it would have been less easy to understand. The line numbers are there to break up the code between different colors; a long section of code actually goes from what would be Line 841 to Line 870, typically. There are shorter sections where there were only single or double threads (otherwise, looping was used, so the max loop value for the last X03 of 5 means that there are 5+2 = 7 rows or threads in the last weft section of black. It is black because of Macro3 leaving the top cell of the 7 black. The first two rows have every other cell pasted from this origin cell; after that, the entire done rows are copied and pasted below per the X03 loop, which is much quicker. They are only done singly, however, as multiples would get confusing, given that the tartan is very inconsistent in how many threads per weft section there are, actually. That said, the macro is so very much faster than doing it manually, there is just No Comparison!!