Public Function m_f(x As String, rng As Range) As String
m_f = x + "ff"
rng.Cells(1, 1).Value(1, 1).Value = "33"
'rng.Cells(1, 2).Value = 44
'rng.Cells(1, 2).Value = 55
End Function

Public Function m_f(x As String, rng As Range) As String

m_f = x + "ff7"
'Call Ëèñò1.set_valf7
Call Module1.set_val_9
'm_f = x + "ff8"
'Call Ëèñò1.set_valf8

End Function


Public Sub set_val_9()
    Range("F9").Value = 7 'Range("C2").Value
End Sub

Public Sub set_valf7()
    Range("F7").Value = 7 'Range("C2").Value
End Sub

Public Sub set_valf8()
    Range("F8").Value = 5 'Range("C2").Value
End Sub

Function tst()
      Range("B7").Cells(1, 1).Replace IIf(Len(Range("B7").Cells(1, 1).Value), "*", ""), 223
    tst = 1
End Function

Function tst1(tt As Range)
      tt.Cells(1, 1).Replace IIf(Len(tt.Cells(1, 1).Value), "*", ""), 223
    tst1 = 1
End Function