I have a macro to create a directory and save the current workbook into it. It then opens up a second workbook, and I get a "Type Mismatch" error, and I don't know why.
Sub CreateAndSave()
Dim folder As String, count As Integer
folder = "H:\" & Sheets("FORM").Range("G20") & "-" & Sheets("FORM").Range("H26")
If Dir(folder, vbDirectory) <> "" Then
MsgBox ("There's already a folder for that.")
  
Else
MkDir folder
Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=folder & "\" & Sheets("FORM").Range("I51") & ".xlsb"
    Application.DisplayAlerts = True

Dim ClosureSht As String
ClosureSht = folder & "\" & Sheets("FORM").Range("I51") & ".xlsb"
End If

Dim fPath As String
Dim TrackingSht As String
Dim ZA As String
Dim ZB As String
Dim ZC As String
Dim ZD As String
fPath = "Q:\Closures\Closure Data 2014\Closure Tracking 2014 - ZONE"
ZA = " 1.xlsb"
ZB = "S 2-3.xlsb"
ZC = " 4.xlsb"
ZD = "S 5-6-7.xlsb"


If Range("G16") = "" Then
MsgBox ("No Zone Entered")
ElseIf MsgBox("Open Tracking sheeet for Zone " & Range("G16") & "?", vbOKCancel) = vbOK Then
    If Range("G16") = 1 Then
    TrackingSht = fPath & ZA
    
    ElseIf Range("G16") = 2 Or Range("G16") = 3 Then
    TrackingSht = fPath & ZB
    
    ElseIf Range("G16") = 4 Then
    TrackingSht = fPath & ZC
    
    ElseIf Range("G16") = 5 Or Range("G16") = 6 Or Range("G16") = 7 Then
    TrackingSht = fPath & ZAd
    
    End If
    Workbooks.Open TrackingSht
End If

Workbooks(TrackingSht).Sheets("Meter Closure Lookup").Range("C3") = Workbooks(ClosureSht).Sheets("FORM").Range("H26")
Workbooks(TrackingSht).Sheets("Meter Closure Lookup").Range("E6") = Workbooks(ClosureSht).Sheets("FORM").Range("F32")
Workbooks(TrackingSht).Sheets("Meter Closure Lookup").Range("F6") = Workbooks(ClosureSht).Sheets("FORM").Range("M32")
    
  

End Sub

I'm not 100% sure how to transfer data between workbooks.

Thanks!