I am getting an overflow error message and I don't know why. Here is the code:
Sub AddReference()
Dim wb1 As Workbook, wb2 As Workbook
Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet
Dim f As Range, client As Variant, Ref As String, ref2 As Integer
Set wb1 = ThisWorkbook
Set...