Formula ajustada 

Option Explicit

Dim cc1 As Variant
Dim cc2 As Variant

Sub teste01()
Dim c1 As Variant
Dim c2 As Variant

cc1 = c1 + c2

End Sub

Sub teste02()
Dim c1 As Variant
Dim c2 As Variant
' Algum código para atribuir valores a c1 e c2
cc2 = c1 + c2
End Sub

Sub soma()
Dim soma As Variant
' Chamar teste01 e teste02 antes de somar
teste01
teste02
soma = cc1 + cc2
' Print ou retornar soma aqui
End Sub