UPS Forgot to say i change the Function a bit

Function Kol(rk As String)
'Find first not emty cell in row 3 after column-B,- Type in a cell :
=kol("Schedules!b3")
Application.Volatile
Kol = Chr(64 + Range(rk).End(xlToRight).Column)
End Function